Определить количество чисел кратных 5 в последовательности от 10 до 50.
Нужно в паскале написать. Хэлпп!
Ответы на вопрос
Ответил archery
0
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.
Ответил furs1975
0
Новые вопросы
Химия,
2 года назад
Английский язык,
2 года назад
Геометрия,
9 лет назад
География,
9 лет назад
Математика,
9 лет назад