1 条题解

  • 0
    @ 2025-4-12 21:43:14

    Pascal :

    var
    a,b,h:integer;
    s:real;
    begin
    read(a,b,h);
    s:=(a+b)*h/2;
    write(s:0:1);
    end.
    
    
    • 1

    信息

    ID
    1384
    时间
    1000ms
    内存
    128MiB
    难度
    (无)
    标签
    递交数
    0
    已通过
    0
    上传者