Bakosmeva
6 год назад
Найти сумму чисел от 0 до 50 кратных 6
ОТВЕТЫ
Капитонович
Jul 7, 2019
Var
s,i: integer;
begin
s:=0;
for i:=0 to 50 do
if i mod 6 =0
then s:=s+i;
writeln (S = ,s)
end.
-----------------------------
S = 216
s,i: integer;
begin
s:=0;
for i:=0 to 50 do
if i mod 6 =0
then s:=s+i;
writeln (S = ,s)
end.
-----------------------------
S = 216
69
