统计1 到 100 共有多个偶数 - Problem Solution - 津桥OJ

0

WangSZ LV 6 SU @ 2024-12-4 19:37:03

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.

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