Question

Дано четырехзначное число. Напишите программу на языке pascal, которая определяет есть, ли среди цифр заданного числа одинаковые и является ли число палиндромом, т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Answer 1

uses School; // PascalABC.NET версия после 14.04.2020

begin

 var a := Digits(ReadInteger('Введи число:'));

 if a.Length = a.Distinct.Count then

   Println('Нет одинаковых цифр, не палиндром')

 else

   begin

     Println('Есть одинаковые цифры');

     if (a[0] = a[3]) and (a[1] = a[2]) then

       Print('Палиндром')

     else

     Print('Не палиндром')

   end  

end.