求 1+2+3+……+100的和 - Problem Solution - 算道OJ

0

admin 菜比学长想拿牌子 SU @ 2025-11-5 17:26:56

Pascal :

var  s,i:integer;
begin
s:=0;
for i:=1  to 100 do
  s:=s+I;
  writeln(s);
end.

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