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

+ 0 -

Kolaolga

15 февр. 2015 г., 22:13:39 (9 лет назад)

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.

+ 0 -

Pirashkov

16 февр. 2015 г., 0:29:40 (9 лет назад)

И почему все считают, что указывать языки - не царское дело?.. Ну ладно, вот на 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.