Question

Как вывести число натуральных чисел-палиндромов от a до b (a,b не превышают 10000) в пфскале

Answer 1

Var
  a,b,i,n,j,l,ier:integer;
  s:string;
  p:boolean;
begin
  Write('Введите границы интервала в виде пары натуральных чисел ');
  Read(a,b);
  n:=0;
  for i:=a to b do
  begin
    Str(i,s);
    l:=Length(s);
    if l=1 then Inc(n)
    else begin
      j:=1;
      repeat
        p:=(s[j]=s[l-j+1]);
        Inc(j)
      until (j>l) or (not p);
      if p then Inc(n)
    end
  end;
  Writeln('Количество палиндромов равно ',n)
end.

Тестовое решение:
Введите границы интервала в виде пары натуральных чисел 1550 2450
Количество палиндромов равно 10

Answer 2

Для вывода всех натуральных чисел-палиндромов от `a` до `b` в языке программирования Pascal можно использовать следующий код:

program PalindromeNumbers;
var
  a, b, i, num, reverse: integer;
begin
  // Ввод значений a и b
  write('Введите значение a: ');
  readln(a);
  write('Введите значение b: ');
  readln(b);

// Проверка и вывод палиндромов
  writeln('Натуральные числа-палиндромы от ', a, ' до ', b, ':');
  for i := a to b do
  begin
    num := i;
    reverse := 0;

// Переворачиваем число
    while num > 0 do
    begin
      reverse := reverse * 10 + num mod 10;
      num := num div 10;
    end;

// Проверяем, является ли число палиндромом
    if i = reverse then
      writeln(i);
  end;
end.

Эта программа запрашивает у пользователя значения `a` и `b`, а затем выводит все натуральные числа-палиндромы в диапазоне от `a` до `b`.

Пример использования: ``` Введите значение a: 100 Введите значение b: 200 Натуральные числа-палиндромы от 100 до 200: 101 111 121 131 141 151 161 171 181 191 ```

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.