Впаскале. нарисовать в экране 300x300 пикселей рамку из кружков, с радиусом 15 пикселей

CadetLada42 CadetLada42    2   02.10.2019 01:10    2

Ответы
ImagineDragonsUA ImagineDragonsUA  09.10.2020 10:43

uses GraphABC;

var x:integer;

begin

SetWindowWidth(300);

SetWindowHeight(300);

x:=15;

while x<300 do

begin

circle (x,15,15);

circle (x,285,15);

circle (15,x,15);

circle (285,x,15);

x:=x+30

end;

end.

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