累加器 - Problem Solution - 津桥OJ

0

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

Pascal :

var
a,b,c:longint;
begin
for a:=1 to 100 do
if a mod 6=0 then c:=c+a;
writeln(c);
end.

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