Определить количество чисел кратных 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.
Гостьпрога в приложении
================
Не нашли ответ?
Похожие вопросы