Ввести четырехзначное целое число и определить яявляется ли число перевертышем( такими например являются числа 6666 и 3223).

И почему все считают, что указывать языки - не царское дело?.. Ну ладно, вот на PascalABC.NET: var   n: integer; begin   readln(n);   writeln((n mod 10) * 1000 + (n div 10 mod 10) * 100 + (n div 100 mod 10) * 10 + (n div 1000) * 1 = n ? 'Yes' : 'No'); end.

Pascal ABC var x:integer; begin writeln ('Введите четырёхзначное число'); readln(x); if (x div 1000 <> 0) and (x div 10000 = 0) then begin if ((x div 100)=(x mod 100)) or (((x div 1000)=(x mod 10)) and (((x div 100) mod 10)=((x mod 100) div 10))) then writeln ('Является перевёртышем') else writeln ('Не является перевёртышем'); end else writeln ('Неверный ввод'); end.