Составить рисункок звезды и нарисовать его в системе pascal abc

110

290

Посмотреть ответы 2

Ответы на вопрос:

Ivanpomogite228

Информатика

4,5(22 оценок)

Uses abcobjects,graphabc; var s: starabc; begin s: =new starabc(window.width div 2,window.height div 2,60,120,5,clyellow); for var i: =5 to 40 do begin sleep(50); s.count: =i; end; for var i: =40 downto 5 do begin sleep(50); s.count: =i; end; for var i: =1 to 360 do s.angle: =i; for var i: =360 downto 1 do s.angle: =i; end.