ДАЮ 40 БАЛЛОВ СРОЧНО
Составьте программу рисования ряда одинаковых Цветков с использованием процедуры FLOWER
Приложения:
![](https://st.uroker.com/files/84e/84e666038bcfe1aab48c748407c86077.jpg)
Ответы
Ответ дал:
2
Ответ:
uses GraphABC;procedure flower(x:integer);beginMoveTo (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;beginSetWindowWidth(800);SetWindowHeight(90);SetPenWidth(2);x:=50;for i:=1 to 11 dobeginflower(x);x:=x+70;endend.
Вас заинтересует
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад