Помогите Нужно нарисовать лягушку через программу паскаль abc

Question

Информатика

Кузьмич

29 июня, 16:54

Помогите Нужно нарисовать лягушку через программу паскаль abc

+2

Ответы (1)

Знаете ответ на вопрос?

Симон · Answer 1

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.