Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-1000). Введённые числа не превышают 30000. Программа должна вывести одно число: количество всех четных чисел, кратных 9. Сделать с массива.
Пример работы программы:
Входные данные:
27
24
18
22
36
0
Выходные данные:
2
ndzandigiv
1
23.12.2021 00:58
29
Другие вопросы по теме Информатика
SForest
19.11.2020 18:17
676751
19.11.2020 18:17
vladborhovp0a44d
12.12.2021 18:14
Leprecon1
12.12.2021 18:15
aalleeks
22.05.2020 17:50
жан108
22.05.2020 17:49
kolap2230
27.01.2021 13:31
ЧеLOVEчек51534
27.01.2021 13:31
milkdkdlol
03.08.2019 23:30
Популярные вопросы
- За g принять 10 Н/кг С какой силой силой на стол давит чугунный кубик с...
1 - Помагите передайте основу содержания прочитанного текста по памяти Используйте...
1 - Вставьте пропущенное слово. Здесь есть три лишних слова. freelancer moved...
3 - Чему равно количество молекул в 1,5 моль водорода?...
2 - Проанализируй текст и выбери преимущества нейлона ответы :эластичность высокая...
2 - Определите какой дид формироаания используется в таблице СОР...
2 - сделайте хотя бы одно задание...
2 - Написать изложение правильное питание основа здоровья...
3 - 2. Випишіть слова, у яких можливе чергування голосних звуків. викоренити,...
3 - сделаю лучшим ответом только чтобы все было правильно...
3
c = 0
while True:
n = int(input())
if n % 9 == 0 and n % 2 == 0:
c += 1
print(c)
Pascal
var
a:array of integer;
i, n:integer;
begin
writeln('введите числа:'); n:=1; i:=0;
while true do begin
readln(n);
if n<>0 then begin
setlength(a, length(a)+1);
a[length(a)-1]:=n;
if (n mod 2 = 0) and (n mod 9 = 0) then
inc(i)
end
else
break
end;
writeln('');
writeln(i);
end.