var a,b:integer;
begin
readln(a,b);
if(a mod 2 = 0) and (a > b) then
writeln('Наибольшее, четное число: ',a)
else begin
if(b mod 2 = 0) and (b > a) then
writeln('Наибольшее четное число: ',b)
else
writeln('Не найдено');
end;
end.
А) последовательность чисел в 3-й степени: 1,8,27,125,216,343,512 и т.д.
б) к каждому числу прибавляется 9 и получается следующее число: 69+9=78+9=87....
69,78,87,96,105,114,123,132 и т.д.
в) 12=11+2^1, 14=12+2^1, 18=14+2^2, след число получаем: 18+2^3=26, 26+2^4=42 и т.д.
г) 10,11,100,111,1000,1111