Question

Напишите программу в паскаль, нужно сделать флаг Багамы

Answer 1

Ответ:

uses graphABC;

begin

SetWindowSize(960,480);

setpencolor(clblue);

rectangle(0,0,960,160);

floodFill(15,15, clblue);

rectangle(0,320,960,480);

floodFill(15,335, clblue);

floodFill(15,175, clyellow);

setpencolor(clblack);

line(0,0,415,240);

line(415,240,0,480);

floodFill(15,15, clblack);

floodFill(15,175, clblack);

floodFill(15,335, clblack);

end.