program z1;
var a,m:integer;
begin
m:=30000;
repeat
read(a);
if (a <> 0) and (a mod 2 = 0) and (a mod 10 <> 2) and (m > a) then m:=a
until a = 0;
writeln(m)
end.
Объяснение:
m равно максимально возможному чётному числу (согласно условию)
Цикл с пост условием:
ввод числа
проверка числа (верно, когда верны все условия):
не 0 (a <> 0) - не является условием окончания последовательности
число чётное (a mod 2 = 0)
число не оканчивается на 2 (a mod 10 <> 2)
число меньше m (m > a)
если проверка пройдена, то переменной m присваивается значение числа
Проверка условия выхода из цикла (a = 0)
Вывод m
1. Конструктор
Возможность осуществления аэродинамической подъемной силы, создание необходимой тяги, уравновешивающей аэродинамическое сопротивление, тем самым обеспечивающее самолёту поступательное движение,
2. Дизайнер
Удобство и эргономичность салона, узнаваемость фирменного стиля авиакомпании, грамотное размещение оборудования.
3. Экономист
Количество мест в самолёте, соотношение цена-качество, затраты на обслуживание воздушного судна, общая стоимость самого самолета, доход от рейсов.
4. Лётчик
Наличие различного оборудования, позволяющего выполнять полеты при любых условиях,
5. Бортпроводник
Количество посадочных мест, наличие аварийного оборудования, наличие оборудования для обслуживания пассажиров.
6. Пассажир
Наличие аварийного оборудования, комфортные посадочные места, размер цены на перелет, соответствие цены качеству.
