1 solutions

  • 0
    @ 2025-11-5 15:40:58

    Pascal :

    var
      a,b,c:integer;
      d:real;
    begin
      readln(a,b,c);
      d:=(a+b+c)/3;
    write(d:0:2);
    end.
    
    • 1

    Information

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