Question

Что Получится при этой команде:
Program a1;
Uses GraphABC;
For i:=1 to 5 do
Rectangle(i*100,200, i*100 +100,400)
Circle(250, 300, 50);
Circle (450, 300, 50);
FloodFill(250,300,clblue);
End.

Answer 1

Ответ:

Ответил

Объяснение:

Ну во-первых, если вот прямо с таким кодом, то ничего не получится, программа не запустится. Если слегка подправить код:

Program a1;

Uses GraphABC;

begin

For var i:=1 to 5 do  

Rectangle(i*100,200, i*100 +100,400);

Circle(250, 300, 50);

Circle (450, 300, 50);

FloodFill(250,300,clblue);

End.

Что получится прикрепил в скрине.