ЯВЛЯЕТСЯ ЛИ ЧИСЛО ПАЛИНДРОМОМ ДЕЛФИ

Палиндром - это число, слово или фраза, которые читаются одинаково в обоих направлениях слева направо и справа налево. Например, 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. Палиндром

Реклама
Новое
Реклама