Bate
4 год назад
плиз, Пожалуйста посчитайте, ребят! в pascal abc нужно нарисовать флаг Нигерии
ОТВЕТЫ
Ганка
Oct 24, 2020
uses GraphABC;
Begin
SetBrushColor(clGreen);
FillRect(0,0,WindowWidth,WindowHeight);
SetBrushColor(clWhite);
FillRect(9*(WindowWidth div 30),0,22*(WindowWidth div 30),WindowHeight)
End.
Begin
SetBrushColor(clGreen);
FillRect(0,0,WindowWidth,WindowHeight);
SetBrushColor(clWhite);
FillRect(9*(WindowWidth div 30),0,22*(WindowWidth div 30),WindowHeight)
End.
534
Смежные вопросы:
