Составить программу в Pascal рисующая по границе периметра круги!!! Плиз помогите!!!! даю 50 пк

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-07T18:49:51+04:00

uses graphabc;
var i,j:integer; x,y:real;
begin
for i:=0 to windowwidth do
for j:=0 to windowheight do
if (j=0) or (i=0) or(j=windowheight) or (i=windowwidth) then circle(i,j,50);
end.