Решебник
- Урок 11. Задание 3.
- ...
- Урок 19. Задание 3.
- Урок 19. Задание 4.
- Урок 20. Задание 1.
- Урок 20. Задание 2.
- Урок 20. Задание 3.
- Урок 20. Задание 4.
- Урок 20. Задание 5.
Program usegraph5;
uses graphABC;
begin
SetWindowSize(600,500);
TextOut(190,5,'Соблюдайте правила дорожного движения!');
SetPenColor(clBlack);
SetBrushColor(clGray);
SetPenWidth(2);
Rectangle(200,40,400,380);
SetBrushColor(clRed);
Circle(300,100,50);
SetBrushColor(clYellow);
Circle(300,210,50);
SetBrushColor(clGreen);
Circle(300,320,50);
End.
uses graphABC;
begin
SetWindowSize(600,500);
TextOut(190,5,'Соблюдайте правила дорожного движения!');
SetPenColor(clBlack);
SetBrushColor(clGray);
SetPenWidth(2);
Rectangle(200,40,400,380);
SetBrushColor(clRed);
Circle(300,100,50);
SetBrushColor(clYellow);
Circle(300,210,50);
SetBrushColor(clGreen);
Circle(300,320,50);
End.