Question

Помогите решить эту задачу по информатике . пожалуйста!!!! мне срочно ​В интернете можете не искать , нету. Нодо самим придумать . помогите

Answer 1

Ответ:

uses GraphABC;

procedure flower(x:integer);

begin

MoveTo (x,50);

LineTo (x-20,30);

LineTo (x,10);

LineTo (x+20,30);

LineTo (x,50);

LineTo (x,80);

LineTo (x+13,47);

end;

var x,i:integer;

begin

SetWindowWidth(800);

SetWindowHeight(90);

SetPenWidth(2);

x:=50;

for i:=1 to 11 do

begin

flower(x);

x:=x+70;

end

end.