1 solutions

  • 0
    @ 2025-11-5 15:41:02

    Pascal :

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

    Information

    ID
    17041
    Time
    1000ms
    Memory
    128MiB
    Difficulty
    (None)
    Tags
    # Submissions
    0
    Accepted
    0
    Uploaded By