Регистрация
юлия1921
03.06.2020 12:32
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 и оканчивающихся на 0. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чисел, кратных 3 и оканчивающихся на 0.

200
202
Посмотреть ответы 2

Ответы на вопрос:

Islikzaziy
Islikzaziy
4,4(12 оценок)

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.

virabasusta
virabasusta
4,6(82 оценок)
Блокнот paint стандартные проги

Популярно: Информатика