1 条题解

  • 0
    @ 2021-6-15 13:08:39

    Pascal :

    var  s,i:integer; 
    begin
    s:=0;
    for i:=1  to 100 do
      if i mod 2=0 then s:=s+1;
      writeln(s);
    end.
    
    
    • 1

    信息

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