решить задачу на Питоне, Рекурсия Задача Используя разобранную процедуру, добавьте в основной программе необходимые строки. Разберитесь, почему программа выдает такой ответ
begin var k := Window.Width / Window.Height; Brush.Color := clForestGreen;
for var i := 0 to Window.Height do begin var p := new System.Drawing.Point(round(k * i), i); FillRectangle(p.X, p.Y, p.X + w, p.Y + w); Sleep(delay); Window.Clear(clYellowGreen); end;
for var i := 0 to Window.Height do begin var p := new System.Drawing.Point(Window.Width - round(k * i), i); FillRectangle(p.X - w, p.Y, p.X, p.Y + w); Sleep(delay); Window.Clear(clYellowGreen); end; end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var n:=ReadInteger('Кол-во элементов:'); var a:=ArrRandomReal(n,-10,20); a.Println; Writeln('С округлением если |x|<1'); for var i:=0 to n-1 do if abs(a[i])<1 then a[i]:=Round(a[i]); a.Println end.
def Rec(a):
if a > 0:
Rec(a-1)
print(a, end="")
x = int(input())
Rec(x)