Помогите пожалуйста, надо нарисовать в паскале ABC флаг Таиланда

0 голосов
104 просмотров

Помогите пожалуйста, надо нарисовать в паскале ABC флаг Таиланда


Информатика (19 баллов) | 104 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Uses GraphABC;
Begin
SetBrushColor(clRed);
FillRect(0,0,WindowWidth,WindowHeight);
SetBrushColor(clWhite);
FillRect(0,(WindowHeight div 6),WindowWidth,5*(WindowHeight div 6));
SetBrushColor(clBlue);
FillRect(0,2*(WindowHeight div 6),WindowWidth,4*(WindowHeight div 6));
End.

(34.0k баллов)