Procedure perevod(n, base : integer);
begin
if n else begin Perevod(n div base, base); Write(n mod base) end;
end;

var
p, n : integer;
begin
p:=3;
n:=123;
Write(n,'(10)=');
Perevod(n,p);
WriteLn('(',p,')');
Переведите на питон

12абра    2   05.05.2020 11:54    1