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

1.способ.перепровляются 2 мальчика потом 1 мальчик возврощается и забирает 1 взрослого и переплывает с ним потом 1 мальчик возвращается и забирает второго взрослого.                                                                                                                   2.способ.сначало переправляются 1 мальчик и 1 взрослый потом этот мальчик переправляется и забирает второго взрослого а потом возвращается за вторым мальчиком и переправляется назад вместе с ним.

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65

за синтаксис не бить

дано а1,а2,б1,б2 - целые

начало

  ввод а1,а2,б1,б2

  a1=a1*б2+б1*а2

  а2=а2*б2

  вывод а1,а2

конец