Дано трёхзначное число. Напишите в паскаль программу, которая определяет:

Является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Чтобы определить, является ли заданное трёхзначное число "перевёртышем", нужно проверить, одинаковы ли первая и последняя цифры этого числа. В языке программирования Pascal это можно сделать следующим образом:

1. Ввод числа: Сначала мы запрашиваем у пользователя ввод трёхзначного числа.
2. Проверка на "перевёртыш": Затем нужно выделить каждую цифру числа и проверить, равна ли первая цифра последней.
3. Вывод результата: После проверки выводим сообщение о том, является ли число "перевёртышем".

Вот пример программы на Pascal, которая выполняет описанные выше шаги:

pascal
program PalindromeCheck;
var
  number: Integer;
  firstDigit, lastDigit: Integer;
begin
  // Запрашиваем ввод трёхзначного числа
  Write('Введите трёхзначное число: ');
  ReadLn(number);
  // Проверяем, что число действительно трёхзначное
  if (number < 100) or (number > 999) then
  begin
    WriteLn('Ошибка: введённое число не является трёхзначным.');
    Exit;
  end;
  // Выделяем первую и последнюю цифры
  firstDigit := number div 100; // Получаем первую цифру
  lastDigit := number mod 10;    // Получаем последнюю цифру
  // Проверяем, являются ли первая и последняя цифры одинаковыми
  if firstDigit = lastDigit then
    WriteLn('Число является перевёртышем.')
  else
    WriteLn('Число не является перевёртышем.');
end.

Пояснение кода:

1. Переменные:

   • number: для хранения введённого числа.
   • firstDigit и lastDigit: для хранения первой и последней цифр числа соответственно.

2. Ввод числа:

   • Используем ReadLn для ввода числа от пользователя.

3. Проверка на трёхзначность:

   • Сначала проверяем, находится ли число в диапазоне от 100 до 999. Если нет, выводим сообщение об ошибке и выходим из программы с помощью Exit.

4. Извлечение цифр:

   • firstDigit извлекается с помощью целочисленного деления на 100.
   • lastDigit извлекается с помощью операции остатка от деления на 10.

5. Сравнение цифр:

   • Сравниваем firstDigit и lastDigit. Если они равны, выводим сообщение о том, что число является "перевёртышем". В противном случае выводим, что число не является "перевёртышем".

Таким образом, программа корректно определяет, является ли введённое трёхзначное число "перевёртышем".