составьте программу вычисления суммы всех положительных трехзначных чисел, кратных 51.
Ответы на вопрос
Ответил Gleb1Kosyrev
0
//Pascal ABC.NET v3.1 сборка 1219
Var
i,s:integer;
begin
for i:=100 to 999 do
if i mod 51=0 then s:=s+i;
writeln(s);
end.
Var
i,s:integer;
begin
for i:=100 to 999 do
if i mod 51=0 then s:=s+i;
writeln(s);
end.
Новые вопросы
Қазақ тiлi,
2 года назад
Математика,
2 года назад
Геометрия,
9 лет назад
География,
9 лет назад
Геометрия,
9 лет назад