помогите решить:Напишите программку, которая в последовательности целых чисел определяет
Помогите решить:
Напишите программку, которая в последовательности целых чисел определяет количество чисел, кратных 5 либо 9. Программка программка получает на вход целые числа, количество введённых чисел неведомо, последовательность чисел заканчивается числом 0 ( 0- признак окончания ввода не входит в последовательность). Количество чисел не превосходит 1000. Введённые числа по модулю не превосходят 30000. Программа обязана вывести одно число: количество чисел кратных 5 или 9.
помогите пожалуйста!!
я вроде теснее решал такую задачку... Ту в условиях только добавилась фраза "по модулю". Скорректировал программку с учетом уточнения в задании.
var
a, n, i : integer;
begin
repeat
read(a);
if (абс(a) lt;= 30000) and (a lt;gt; 0) then begin
if (a mod 5 = 0) or (a mod 9 = 0) then n += 1;
i += 1;
end;
until (a = 0) or (i = 1000);
writeln(n);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.