Написать программу которая подтверждает числа полиморфы

Question

Написать программу которая подтверждает числа полиморфы

Comments

а поточнее что именно и как она там должна подтверждать?

---

К примеру пишешь 111 тебе выводит правильно , пишешь 1587 выводить ложь или неправильно . Понял?

---

Числа полиморфы читаются с конца также как и с начала

---

так превратить в строки и проверить на реверси

---

Спасибо, но сможешь сделать программу с таким же смыслом но чтобы в программе обязательно был оператор while P.S Не обязательно если нет времени можешь не делать

---

Всё я сам смог ...

---

program mmm; var x, x1, y, a : integer; begin Write('Введите число = '); ReadLn(X); x1:=x; while x<>0 do begin a:=x mod 10; {последняя цифра числа х} y:=y*10+a; {собираем перевернутое число} x:=x div 10; {отбрасываем последнюю цифру} end; If x1=y then WriteLn('Да') else WriteLn('Нет'); end.

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  var n := ReadInteger('n =');
  if n < 0 then begin
    writeln('Число отризательное и не может быть перевертышем');
    Halt;
  end;
 
  var s := n.ToString();
  if ReverseString(s) = s then
    writeln('Перевертыш')
  else  writeln('Не перевертыш');
end.