Ответ: а)3
Решение:
i=1
A[2*1-1]:=1; (A[1])
A[2*1]:=1; (A[2])
__________________
i=2
A[2*2-1]:=2; (A[3])
A[2*2]:=4; (A[4])
__________________
i=3
A[2*3-1]:=3; (A[5])
A[5]=3
//Это человечек в профиль.
//Pascal ABC.NET v3.1 сборка 1172
Uses
GraphABC;
Var
i:integer;
begin
maximizewindow;
for i:=100 to 500 do
begin
clearwindow();
setbrushcolor(clGold);
circle(i,i,10);
circle(i,i+30,6);
circle(i,i+65,6);
setbrushcolor(clgray);
ellipse(i-15,i+10,i+15,i+60);
setbrushcolor(clGold);
circle(i,i+30,6);
sleep(40);
end;
end.
Ответ :
в ) отделяет один раздел програми от другого...