1) Определите результат работы функции входном значении, равном 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;
2) Напишите процедуру, которая переводит переданное ей натуральное число в систему счисления, которая задается вторым параметром (от 2 до 20).

selemenevakrist    2   10.02.2021 16:32    31