Составьте программу которая рисует 10 окружностей зеленого цвета разных радиусов…

Question

53

Составьте программу которая рисует 10 окружностей зеленого цвета разных радиусов с однимцентром. Паскаль. Чем скорее, тем лучше!

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

verst · Accepted Answer

74

verst

24 февраля 2023

Uses graphabc; var x,y,r: integer; beginclearWindow (clViolet); setBrushColor (clGreen); x: =22; y: =22; r: =20; while x<660 do begincircle (x,y,r); x: =x+40; end; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: