Напишите программу, которая получает поток (последовательность) - вопрос №13340536 от Ffaafafa 03.01.2022 19:29

Question

Информатика: Напишите программу, которая получает поток (последовательность) чисел (поочередный ввод с клавиатуры). Признаком окончания потока чисел является ввод числа 0. В этой последовательности определить количество чисел, которые кратны 3 и их запись оканчивается на 6. ОЧЕНЬ Б

Ffaafafa · Answer

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.Пример работы:...