Question

ПОМОГИТЕ ПРОШУ ИНФОРМАТИКА СРОЧНО
Задание 5. Составьте программу рисования n красных квадратов со стороной, равной 30. Координаты левого верхнего угла квадрата задаются случайным образом GraphABC.NET​

Answer 1

Ответ:

uses GraphABC;

var n,i,x,y:integer;

begin

SetPenColor(clred);

SetBrushColor(clred);

read(n);

for i:=1 to n do

begin

x:=random(611);

y:=random(451);

rectangle (x,y,x+30,y+30)

end

end.

Объяснение:

для рисования n квадратов используем цикл со счётчиком (for i:=1 to n do)

для задания случайным образом координат левого верхнего угла квадрата используем функцию random