Question

Решить на паскале. Дано целое неотрицательно число, меньшее 10000. Если число имеет меньше 4 знаков в десятичной записи, то нужно считать, что его десятичная запись дополняется слева незначащими нулями (например, 120 дополняется до 0120). Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое целое число. примеры ввод вывод 2002 1 2008 37(или любое другое целое число, кроме 1) 440 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) + 2)      

end.

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

Answer 2

Вот решение на языке Pascal:

pascalCopy code
program SymmetricNumber;

var
  number: Integer;
  numberStr: String;
  isSymmetric: Boolean;
  i: Integer;

begin
  readln(number);
  numberStr := IntToStr(number);

  // Дополняем число нулями до 4 знаков
  while Length(numberStr) < 4 do
    numberStr := '0' + numberStr;

  isSymmetric := True;

  // Проверяем симметричность числа
  for i := 1 to Length(numberStr) div 2 do
  begin
    if numberStr[i] <> numberStr[Length(numberStr) - i + 1] then
    begin
      isSymmetric := False;
      Break;
    end;
  end;

  // Выводим результат
  if isSymmetric then
    writeln(1)
  else
    writeln(-1); // Любое другое целое число, кроме 1
end.

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