написать программу в паскале, определяющую является ли число перевертышем в паскаль. p.s перевертыш т.е с двух сторон читается одинаково, например 111
помогите!!!!
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число: ').ToString;
if n=ReverseString(n) then Writeln('Перевертыш')
else Writeln('не перевертыш')
end.
Пример
Введите натуральное число: 3527253
Перевертыш
Введите натуральное число: 135233
не перевертыш
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число: ').ToString;
if n=ReverseString(n) then Writeln('Перевертыш')
else Writeln('не перевертыш')
end.
Пример
Введите натуральное число: 3527253
Перевертыш
Введите натуральное число: 135233
не перевертыш
Новые вопросы
Литература,
8 лет назад