Боряев
6 год назад
Найти сумму чисел, кратных 3 от 1 до 100.
ОТВЕТЫ
Окунев
Jun 30, 2019
Program n1;
var S, i: integer;
begin
S:=0;
for i:=1 to 100 do
if (i mod 3 =0) then S:=S+i;
writeln(S);
end.
var S, i: integer;
begin
S:=0;
for i:=1 to 100 do
if (i mod 3 =0) then S:=S+i;
writeln(S);
end.
263
