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

Question

Информатика

Аделла

22 июля, 15:19

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

+3

Ответы (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.