Задание 2. Составить программу, в результате работы которой будет нарисован дом. Размножьте рисунок в любом направлении: по вертикали, по горизонтали, по диагонали. На рисунке показан примерный результат выполнения. Программу писать с цикла For. Прислать скрин рисунка на фоне программы

ответ:рисуй по градуса 60, 120 и т. Д

Объяснение:

Смотри картинку

Объяснение:

uses graphabc;

var x,y,i:integer;

begin

x:=30;

y:=50;

for i:=1 to 5 do

begin

rectangle (x,y,x+100,y+100);

FloodFill(x+5,y+5,clyellow);

line (x,y,x+50,y-45);

line (x+50,y-45,x+100,y);

FloodFill(x+50,y-40,clblue);

rectangle (x+10,y+30,x+40,y+90);

FloodFill(x+15,y+35,clgreen);

rectangle (x+50,y+30,x+90,y+70);

FloodFill(x+55,y+35,clred);

x:=x+120;

end

end.