Помогите Нужно нарисовать лягушку через программу паскаль abc
Помогите Нужно нарисовать лягушку через программу паскаль abc
Гость
Ответ(ы) на вопрос:
Гостьuses graphABC;
begin
line(40,40,180,40);
line(40,40,110,0);
line(110,0,180,40);
line(40,40,110,80);
line(110,80,180,40);
setbrushcolor(clred);
circle(20,40,20);
circle(200,40,20);
floodfill(110,30,clblue);
floodfill(110,60,clgreen);
end.
Не нашли ответ?
Похожие вопросы