МНОГО БАЛЛОВ, СРОЧНО ИНФОРМАТИКА 10 класс!
Определите результат работы функции при входном значении, равном 123456:function qq(x: integer):integer;var i, s: integer;begin s:=0; for i:=1 to 3 do begin s := s + x mod 10; x := x div 10; end; qq := s;end;Напишите процедуру, которая выводит на экран переданное ей число в системе счисления, которая задается вторым параметром (от 2 до 10).