Question

Напишите программу, которая получает поток (последовательность) чисел
(поочередный ввод с клавиатуры). Признаком окончания потока чисел является ввод

числа 0. В этой последовательности определить количество чисел, которые кратны 3
и их запись оканчивается на 6.
ОЧЕНЬ СРОЧНО 30Б

Answer 1

Ответ:

• var i, n: integer;
• begin
• i := 1;
• while i <> 0 do
• begin
• read(i);
• if (i mod 3 = 0) and (i mod 10 = 6) then n := n + 1;
• end;
• write(n);
• end.

Пример работы: