1 solutions

  • 0
    @ 2025-11-5 16:32:35

    Pascal :

    program hello;
    var
     a,b,c,s:real;
    begin
     while not eof(input) do
      begin
       readln(a,b);
       c:=a+b;
       s:=a*b;
       writeln('C=',c:0:2,' S=',s:0:2);
      end;
    end.
    
    
    • 1

    Information

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