Задача по информатике, надо быстро написать программу в Паскале. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 5 но не кратных 4. Программа получается на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода последовательности, и в последовательность не входит)
Гарантируется что в последовательности имеется хотя бы одно число кратное 5 и не краьное 4.
Программа должна вывести одно число: количество чисел кратных 5 и не кратных 4
Задача по информатике, надо быстро написать программу в Паскале. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 5 но не кратных 4. Программа получается на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода последовательности, и в последовательность не входит)
Гарантируется что в последовательности имеется хотя бы одно число кратное 5 и не краьное 4.
Программа должна вывести одно число: количество чисел кратных 5 и не кратных 4
Гарантируется что в последовательности имеется хотя бы одно число кратное 5 и не краьное 4.
Программа должна вывести одно число: количество чисел кратных 5 и не кратных 4
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program CountNumbers;
var
number, count: integer;
begin
count := 0;
read(number);
while number <> 0 do
begin
if (number mod 5 = 0) and (number mod 4 <> 0) then
count := count + 1;
read(number);
end;
writeln(count);
end.