Дано чет число. Проверить истинность высказывания: Данное число читается одинаково слева направо и справо налево. В Delphi

Описание задачи

Требуется написать программу на языке Delphi, которая проверяет истинность высказывания о том, что данное число читается одинаково слева направо и справо налево.

Алгоритм решения

Для решения данной задачи можно использовать следующий алгоритм:

Считать данное число с клавиатуры или из другого источника.
Определить количество цифр в данном числе.
Разложить данное число на цифры и сохранить их в массив.
Сравнить первую половину массива с последней, проверив их на равенство.
Если первая половина равна последней, то число читается одинаково слева направо и справо налево.

Пример кода

Ниже приведен пример кода на языке Delphi, который реализует описанный алгоритм:

program palindrome;

var
  number, reversedNumber, i, digit: integer;

begin
  Write('Введите число: ');
  Read(number);
  
  reversedNumber := 0;
  
  for i:= 1 to Length(IntToStr(number)) do
  begin
    digit := number mod 10;
    reversedNumber := reversedNumber * 10 + digit;
    number := number div 10;
  end;
  
  if number = reversedNumber then
    WriteLn('Данное число читается одинаково слева направо и справо налево.')
  else
    WriteLn('Данное число не является палиндромом.');
end.

Заключение

Данная статья предоставляет алгоритм решения задачи на проверку истинности высказывания об одинаковом чтении числа слева направо и справо налево на языке Delphi. В представленном примере кода используется оператор цикла for и операторы условного ветвления if-else.