Question

ДАЮ МАКСИМАЛЬНЫЙ БАЛЛ!
Определите результат работы функции входном значении, равном 123456:

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;

Answer 1

Ответ:

Объяснение:

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

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

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