50 составьте программу рисования окружностей

лауракот лауракот    3   13.03.2019 21:22    1

Ответы
Malina235 Malina235  25.05.2020 06:07

uses graphabc;

var

 i: integer;

begin

 setwindowsize(600, 101);

 for i := 0 to 5 do

 begin

   circle(50 + i * 100, 50, 50);

   circle(50 + i * 100, 50, 15);

 end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика