Помогите решить эту задачу по информатике . пожалуйста!!!! мне срочно В интернете можете не искать , нету. Нодо самим придумать . помогите
Приложения:
![](https://st.uroker.com/files/ae3/ae3b7e039943dde17feaebcccc62cce5.jpg)
Ответы
Ответ дал:
5
Ответ:
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.
Приложения:
![](https://st.uroker.com/files/36e/36e52834cd9348bd40b7afab3a0dec23.jpg)
ivankovalenya2005:
Спасибоьбольшое
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад