.设计一个程序,输出100以内能被2或3整除的所有整数,并求这些整数的和S,并画出程序框图.

Question

.设计一个程序,输出100以内能被2或3整除的所有整数,并求这些整数的和S,并画出程序框图.

Answer 1

program shax;
var
i,s:longint;
begin
for i:=1 to 100 do
if (i mod 2=0)or(i mod 3=0) then
begin
writeln(i);
s:=s+i;
end;
writeln(s);
end.