Question

Решить на паскале. Дано целое неотрицательное число, меньшее 10000. Если число имеет меньше 4 знаков в десятичной записи, то нужно считать, что его десятичная запись дополняется слева незначащими нулями (например, 120 дополняется до 0120). Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое целое число.

Answer 1

var

       n: Word;

       s: string;

begin

       Read (n);

       Str (n, s);

       

       if n < 100 then

               s := '00' + n;

       if (n >= 100) and (n < 1000) then

               s := '0' + n;

       

       if (s[1] = s[4]) and (s[2] = s[3]) then

               Write (1)

       else

               Write (Random (1000))      

end.

Str - процедура перевода числа n в строку s

Answer 2

Вот паскальский код для решения данной задачи:

pascalCopy code
program SymmetricNumber;
var
  number, reversed, original, digit, divisor: integer;
begin
  readln(number); // Вводим число

  // Дополняем число нулями до 4 знаков
  if number < 10 then
    original := number * 1000
  else if number < 100 then
    original := number * 100
  else if number < 1000 then
    original := number * 10
  else
    original := number;

  reversed := 0; // Инициализируем переменную для обратного числа
  divisor := 1000; // Инициализируем делитель для извлечения цифр

  // Переворачиваем число
  while original > 0 do
  begin
    digit := original mod 10; // Получаем последнюю цифру числа
    reversed := reversed + digit * divisor; // Добавляем цифру к обратному числу
    divisor := divisor div 10; // Уменьшаем делитель
    original := original div 10; // Убираем последнюю цифру из числа
  end;

  // Проверяем, является ли число симметричным
  if number = reversed then
    writeln(1) // Если симметричное, выводим 1
  else
    writeln(0); // Если не симметричное, выводим 0
end.

Этот код сначала дополняет введенное число нулями до 4 знаков, затем переворачивает его и сравнивает с оригинальным числом, чтобы определить, является ли оно симметричным. Если да, то выводится 1, в противном случае - 0.