Question

Написать программу, которая выводит изображенный ниже узор. Turbo Pascal

Answer 1

uses graph;
const
 R=100;
var
 drive,mode:integer;
 path:string;
 x,y,i,j:integer;
begin
 drive:=detect;
 InitGraph(Drive,Mode,Path);
 x:=400;
 for i:=1 to 5 do
  begin
   y:=100;
   x:=x+150;
   for j:=1 to 4 do
    begin
     circle(x,y,R);
     y:=y+150;
    end;
 end;
end.