Составить программу, которая подсчитывает количество палиндромов среди натуральных четырехзначных чисел. Pascal

Конечно! Давайте разберёмся, как написать такую программу на Pascal, которая подсчитывает количество палиндромов среди четырёхзначных натуральных чисел.

Пояснение

1. Палиндром — это число, которое читается одинаково слева направо и справа налево.
   Для четырёхзначного числа abcd это означает, что a = d и b = c.

2. Четырёхзначные числа лежат в диапазоне от 1000 до 9999.

3. Чтобы проверить число на палиндром, можно:

   • Извлечь отдельные цифры числа с помощью деления и остатка от деления.

   • Сравнить первую цифру с последней и вторую с третьей.

Пример программы на Pascal

pascal
program CountFourDigitPalindromes;

var
  num: integer;
  a, b, c, d: integer;
  count: integer;

begin
  count := 0;

  for num := 1000 to 9999 do
  begin
    a := num div 1000;          { первая цифра }
    b := (num div 100) mod 10;  { вторая цифра }
    c := (num div 10) mod 10;   { третья цифра }
    d := num mod 10;            { четвертая цифра }

    if (a = d) and (b = c) then
      count := count + 1;
  end;

  writeln('Количество четырехзначных палиндромов: ', count);
end.

Как работает программа

1. Переменная count инициализируется нулём.

2. Цикл for перебирает все числа от 1000 до 9999.

3. Для каждого числа извлекаются цифры a, b, c, d.

4. Проверяем условие палиндрома: a = d и b = c.

5. Если условие выполняется, увеличиваем счётчик count.

6. После завершения цикла выводим результат на экран.

Результат

Количество четырёхзначных палиндромов равно 90.

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