1 条题解

  • 0
    @ 2025-2-14 20:39:29

    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

    计算长方形的半周长和面积(实数)

    信息

    ID
    334
    时间
    1000ms
    内存
    128MiB
    难度
    10
    标签
    递交数
    1
    已通过
    0
    上传者