Плиз, помогите, ребят! в pascal abc нужно нарисовать флаг Нигерии
Плиз, помогите, ребят! в pascal abc нужно нарисовать флаг Нигерии
Гость
Ответ(ы) на вопрос:
Гостьuses GraphABC;
Begin
SetBrushColor(clGreen);
FillRect(0,0,WindowWidth,WindowHeight);
SetBrushColor(clWhite);
FillRect(9*(WindowWidth div 30),0,22*(WindowWidth div 30),WindowHeight)
End.
Не нашли ответ?
Похожие вопросы