Определите результат работы функции входном значении, равном 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;

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;

DENUCKS · Answer

Объяснение:Программа выдаст ошибку (см. приложенный файл).Необходимо функцию описать не через integer, а через longint.Тогда ответом будет перевернутое число: 654321...

Определите результат работы функции входном значении, равном 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;

Определите результат работы функции входном значении, равном 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;