Дано четырехзначное число N.Выяснить: а. Является ли число палиндромом? б. Верно ли, что...

Question

Дано четырехзначное число N.Выяснить:
а. Является ли число палиндромом?
б. Верно ли, что все 4 цифры этого числа различны.

Answer 1

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 (a<>b)and(a<>c)and(a<>d)and(b<>c)and(b<>d)and(c<>d)
  then writeln('В числе все цифры различны')
  else writeln('В числе есть одинаковые цифры');
end.

Пример:
n = 1315
Число - не палиндром
В числе есть одинаковые цифры