ЯВЛЯЕТСЯ ЛИ ЧИСЛО ПАЛИНДРОМОМ ДЕЛФИ
Палиндром - это число, слово или фраза, которые читаются одинаково в обоих направлениях слева направо и справа налево. Например, 121, «топот», «заказ» и т.д. В Delphi можно написать функцию, которая будет проверять, является ли число палиндромом. Для этого необходимо:
function IsPalindrome(n: Integer): Boolean;
var
rev, temp: Integer;
begin
temp := n;
rev := 0;
while temp > 0 do
begin
rev := rev * 10 + temp mod 10;
temp := temp div 10;
end;
Result := n = rev;
end;
Эта функция будет возвращать true
, если число n
является палиндромом, и false
, если нет. Например, если мы вызовем ее с аргументом 121
, то мы получим true
.
Теперь мы можем использовать эту функцию, чтобы проверить, является ли число, введенное пользователем, палиндромом. Для этого мы можем написать следующий код:
var
n: Integer;
begin
Write('Введите число: ');
ReadLn(n);
if IsPalindrome(n) then
WriteLn(n, ' является палиндромом')
else
WriteLn(n, ' не является палиндромом');
end.
Этот код будет запрашивать у пользователя число, проверять, является ли оно палиндромом, и выводить соответствующее сообщение.
Разбор задачи 9 delphi-hlp.ru Palindrome Number. Решение на C++
C# Language Выполняем поиск полиндромов.
Математические операции для поиска палиндрома
Задача на Junior Java, Javascript собеседовании на которой многие валятся. Палиндром.
Задача Палиндром на Python (Питон): 10+ вариантов решений
Программирование на С++. Урок 90. Палиндром