Напишите программу, которая в последовательности натуральных - вопрос №10954120 от Qqertyi 12.03.2023 14:46

Question

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

Qqertyi · Answer

program min_ne_okon_na_2;var m,x:integer;begin m:=30000; read(x); repeat if (x m)and(x mod 2=0)and(x mod 10 2) then m:=x; read(x); until x=0; write(m);end....