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
program z1;
var a:integer;
begin
write('Введите шестизначное число: ');
readln(a);
if a div 1000 div 100 + a div 1000 mod 100 div 10 + a div 1000 mod 10 = a mod 1000 div 100 + a mod 1000 div 10 mod 10 + a mod 1000 mod 10
then write ('счастливый билет')
else write ('обычный билет')
end.
Объяснение:
Вводим число
Если сумма первых 3 цифр равна сумме последних 3 цифр, то билет счастливый, иначе обычный
a div 1000 - первые 3 цифры
a div 1000 div 100 - первая цифра первых 3 цифр
a div 1000 mod 100 div 10 - вторая цифра первых 3 цифр
a div 1000 mod 10 - третья цифра первых 3 цифр
a mod 1000 - последние 3 цифры
a mod 1000 div 100 - первая цифра последних 3 цифр
a mod 1000 div 10 mod 10 - вторая цифра последних 3 цифр
a mod 1000 mod 10 - третья цифра последних 3 цифр
