Дано четырехзначное число N. Выяснить:

а. Является ли число палиндромом?

б. Верно ли, что все 4 цифры этого числа различны.

Var n, a, b, c, d:integer;

begin

write ('n = ');

readln (n);

a:=n div 1000;

b:=n div 100 mod 10;

c:=n mod 100 div 10;

d:=n mod 10;

if a*10+b=d*10+c

then writeln ('Число - палиндром')

else writeln ('Число - не палиндром');

if (ab) and (ac) and (ad) and (bc) and (bd) and (cd)

then writeln ('В числе все цифры различны')

else writeln ('В числе есть одинаковые цифры');

end.

Пример:

n = 1315

Число - не палиндром

В числе есть одинаковые цифры