Терентий 25 ноября 2019 в 09:20
Определить количество чисел кратных 5 в последовательности от 10 до 50.
Нужно в паскале написать. Хэлпп!
Определить количество чисел кратных 5 в последовательности от 10 до 50.
Нужно в паскале написать. Хэлпп!
Var
i, k: integer;
begin
for i := 10 to 50 do
if i mod 5 = 0 then
k := k + 1;
writeln(k);
end.
i, k: integer;
begin
for i := 10 to 50 do
if i mod 5 = 0 then
k := k + 1;
writeln(k);
end.
Прога в приложении
================
================
Компьютеры и вычисления
335
0
Для комментирования необходимо зарегистрироваться на сайте