Решить: напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. программа программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 ( 0- признак окончания ввода не входит в
последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30000. программа должна вывести одно число: количество чисел кратных 5 или 9.
ТвояЗайка111
3
08.10.2019 01:20
10
Другие вопросы по теме Информатика
sashkaveber
04.05.2020 19:03
Steam1112
27.02.2019 19:10
1234942
20.01.2020 14:53
dayanocha0080
20.01.2020 14:52
darinchiiik
20.01.2020 14:51
lphk02
20.01.2020 14:46
Aynur123455
20.01.2020 14:44
vani2006
08.05.2021 18:04
milana23456789
08.05.2021 18:05
Популярные вопросы
- 99 . + выберу лучшим исходя из соотношения неопределенностей между импульсом...
1 - В1. установите соответствия признаки процесса фазы фотосинтеза 1) происходит...
2 - Что надо делать при землетресение если ты оказался на улице зарание я серьезно...
2 - В1. установите соответствия признаки процесса фазы фотосинтеза 1) происходит...
1 - Ласкательное слово гнездо,голова,птица,лобик,коза...
2 - Решить определите точность до целых модуль силы действующей на брльшой поршень...
3 - Определите, в каких предложениях есть ошибки, связанные с непониманием значения...
1 - Выполни действие 12 м - 5 целых 3/4 м 2) 8 целых 1/8 дм - 2 целых 1/4 дм...
3 - Напишите,, где поставить запятые. шепотом еле слышимым голосом произнес он....
3 - Движущие силы восстания 1836-1838 год под руководством исатая тайманулы и...
2
я вроде уже решал такую задачу... Ту в условиях только добавилась фраза "по модулю". Скорректировал программу с учетом уточнения в задании.
var
a, n, i : integer;
begin
repeat
read(a);
if (abs(a) <= 30000) and (a <> 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.