Перевод из паскаля в питон

@RASOLi ndas · Регистрация: 23.11.2019

Author24 — интернет-сервис помощи студентам

Pascal

var
  n: integer;
  count: integer;
 
procedure R(n1: integer; start: integer; p: string);
var 
  j: integer;
  s: string;
begin
  if n1 = 0 then
  begin
    SetLength(p, length(p)-1);
    writeln(p);
    inc(count);
  end
  else if n1 > 0 then
    for j := start to n1 do
    begin
      Str(j, s);
      s := p + s + '+';
      R(n1-j, j, s);
    end;
end;
 
begin
write('Input: ');
readln(n);
 
var sw: Stopwatch := Stopwatch.StartNew();
R(n, 1, '');
sw.Stop();
 
writeln('Total: ', count);
writeln('Time: ', (sw.ElapsedMilliseconds / 1000):0:4, ' sec.');
end.Пе

@eaa · 23.11.2019, 13:28

Python

def R(n, start, p):
    if n == 0:
        print(p[:-1])
    else:
        for j in range(start, n + 1):
            R(n - j, j, p + str(j) + '+')
 
R(int(input()), 1, '')

	23.11.2019, 13:28