В данный код, вставить 2 оператора FloodFill и SetFillStyle, благодаря которым можно закрасить части графика: >0 в коричневый, n*pi ; j:=(l/n);
for i:= 1 to n do

begin

q:=(i*j) ;
SetColor(brown);
str(i,f);

line(trunc(q+10),100,trunc(q+10),trunc(110));
OutTextXY(trunc(q+3+10),110,f);
OutTextXY(trunc(q+8+10),110,'.j');

end;
readln ;

readln
end.

Касоничка    2   12.01.2021 18:20    1