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

Ответы

petrchisp0abir 23.08.2020 17:53

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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

megan99 27.12.2021 20:30

рахима5Е 27.12.2021 20:14

morozovasanya 27.12.2021 20:13

Aleksa4nick 27.12.2021 20:08

Даю 50 б. Можно просто ответ...

motay121 27.12.2021 20:02

Askarabdullaev 15.09.2020 02:04

tdemon 15.09.2020 13:51

Tricjt 17.09.2020 20:21

vitalia4420 11.04.2020 16:03

BekaBeka001 11.04.2020 16:03