Question

Решить задачу в паскале авс :Дано число узнать является ли оно симметричным или нет. (симметричные это числа : 11,22,33,44,55,66,77,88,99 мы берем числа до 100,тоесть те,которые были перечислены) а симметричные трехзначные не берем. по возможности решить через функцию div

Answer 1

Var a:integer;
begin
  writeln('Введите число  ');
  readln (a);
  if (a div 10 = a mod 10) and (a>9) then
     writeln ('число симметричное ')
  else
     writeln('число не симметричное');
end.

Answer 2

Решение задачи в Pascal ABC

Для решения задачи о проверке, является ли число симметричным или нет, можно использовать функцию `div` в языке Pascal ABC. Вот пример кода, который решает данную задачу:

program SymmetricNumber;

function IsSymmetricNumber(n: integer): boolean;
var
  reverse: integer;
begin
  reverse := 0;
  while n > 0 do
  begin
    reverse := reverse * 10 + n mod 10;
    n := n div 10;
  end;
  IsSymmetricNumber := reverse = n;
end;

var
  number: integer;
begin
  writeln('Введите число:');
  readln(number);
  if IsSymmetricNumber(number) then
    writeln('Число является симметричным')
  else
    writeln('Число не является симметричным');
end.

В этом примере мы определяем функцию `IsSymmetricNumber`, которая принимает число `n` и проверяет, является ли оно симметричным. Мы используем переменную `reverse`, чтобы сохранить обратное число, полученное путем переворачивания цифр числа `n`. Затем мы сравниваем `reverse` с исходным числом `n` и возвращаем `true`, если они равны, и `false` в противном случае.

В основной части программы мы считываем число с помощью `readln` и вызываем функцию `IsSymmetricNumber`, чтобы проверить, является ли оно симметричным. Затем выводим соответствующее сообщение на экран.

Примечание: В этом коде мы не ограничиваемся только двузначными числами, как указано в задаче. Мы проверяем любое целое число на симметричность.

Пример работы программы

Введите число:
22
Число является симметричным

Введите число:
123
Число не является симметричным