Напишите программу, которая в последовательности - вопрос №12139160 от 154904 01.05.2023 01:20

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 и не оканчивающихся на 8. Про-грамма должна вывести одно число: количество чисел, кратных 6 и не оканчивающихся на 8.Пример работы программы:Входные данные 36181448540 Выходные данные 2

154904 · Answer

var k, n, a, amax: integer; begin amax:=0; readln(n); for k:=1 to n do begin readln(a); if (a mod 6 = 0) and (a amax) then amax:=a; end; writeln(amax); end....