nikpenkov02

10.07.2020 18:49 •  Информатика

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