Измените программу так, чтобы маска улыбалась uses GraphABC;
begin
Chord(300,200,200,160,380);
Chord(200,200,50,180,360);
Chord(400,200,50,225,315);
Pie(300,250,50,225,315);
Arc(300,370,50,0,180);
end.

167

225

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

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

popovamelanaliceysi

Информатика

4,6(34 оценок)

Вобщем, у меня pascal abc стоит, примерно 10 окружностей с центром внутри будут выглядеть так : program krug; uses graphabc; var i: integer; begin setpencolor (clblack); for i: =109 downto 1 do begin i: =i-9 ; circle (100,100,i); end; end.