Question

ДАЮ МАКСИМАЛЬНЫЙ БАЛЛ! Определите результат работы функции входном значении, равном 123456:function qq(x: integer):integer;var i, s: integer;begins:=0;while x > 0 do begins:= 10*s + x mod 10;x:= x div 10;end;qq:= s;end;

Answer 1

Ответ:

Объяснение:

Программа выдаст ошибку (см. приложенный файл).

Необходимо функцию описать не через integer, а через longint.

Тогда ответом будет "перевернутое" число: 654321

Answer 2

Похоже, что у вас есть ошибка в предоставленном коде функции. В строке begins:= 10*s + x mod 10; вы используете неверное имя переменной. Верное имя переменной должно быть s, а не begins. Кроме того, символ > следует заменить на оператор >. Поправленный код будет выглядеть так:

pascalCopy code
function qq(x: integer): integer;
var
  i, s: integer;
begin
  s := 0;
  while x > 0 do
  begin
    s := 10 * s + x mod 10;
    x := x div 10;
  end;
  qq := s;
end;

Итак, когда вы вызываете эту функцию с аргументом 123456, она будет выполнять следующие шаги:

1. На первой итерации: s = 0, x = 123456, вычисление s := 10 * 0 + 123456 mod 10 = 6, x := 12345.
2. На второй итерации: s = 6, x = 12345, вычисление s := 10 * 6 + 12345 mod 10 = 56, x := 1234.
3. И так далее...

В итоге функция вернет значение s = 654321.

Таким образом, результат работы функции при входном значении 123456 будет равен 654321.