Написать программу в паскале, определяющую является - вопрос №7983998 от СветланаСветик3 30.10.2022 15:06

Question

Информатика: Написать программу в паскале, определяющую является ли число перевертышем в паскаль. p.s перевертыш т.е с двух сторон читается одинаково, например 111

СветланаСветик3 · Answer

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Введите натуральное число: ').ToString;
if n=ReverseString(n) then Writeln('Перевертыш')
else Writeln('не перевертыш')
end.

Пример
Введите натуральное число: 3527253
Перевертыш

Введите натуральное число: 135233
не перевертыш