Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 и оканчивающихся на 0. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чисел, кратных 3 и оканчивающихся на 0.
sukdimka2013
2
15.05.2020 16:17
2
Другие вопросы по теме Информатика
шалабам
31.03.2019 12:40
Ізабель
31.03.2019 12:40
Yanaaa13
12.08.2019 05:50
alexey2ristp00z7s
12.08.2019 05:50
руслан746
12.12.2019 21:43
Аделя6661
12.12.2019 21:47
Kiryshka2532
12.12.2019 21:47
belayazima
27.06.2019 18:30
Популярные вопросы
- Сравнить демократический режим великобритании и тоталитарный германии....
3 - Номер 187(уравнением),196(уравнением), 176(3,4)...
2 - Как он при к прямохождению...
1 - Люди с этим хотябы половину заранее y= sin x y= sin x-1 y= sin x+2 y=cos x y=cos...
2 - 2предложения, в которых знаки препинания служат для выделения...
2 - Перевести текст how do cameras work?...
2 - Можете надо составить предложение со словом вообразить...
3 - Составьте по данным схемам предложения сказуемое подлежащее 2. определение сказуемое...
2 - Формальными языками можно считать(выберите один или несколько ответов): 1.дорожные...
2 - Грамматическая основа в предложнии получилась мягкая постель...
1
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.