Предмет: Информатика,
автор: 9komrad9
Определить среди шестизначных чисел палиндромы (палиндромом называется число, которое читается слева направо и с права налево одина-ково) в паскаль.
Ответы
Автор ответа:
0
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadInteger('Введите шестизначное натуральное число:').ToString;
if s=ReverseString(s) then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Тестовое решение
Введите шестизначное натуральное число: 158851
Это палиндром
begin
var s:=ReadInteger('Введите шестизначное натуральное число:').ToString;
if s=ReverseString(s) then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Тестовое решение
Введите шестизначное натуральное число: 158851
Это палиндром
Похожие вопросы
Предмет: Физика,
автор: a11a11b2008
Предмет: Математика,
автор: jrjudhci
Предмет: Информатика,
автор: sofi05784
Предмет: История,
автор: nataljadavydov1
Предмет: Математика,
автор: iryna150