profile
Опубликовано 6 лет назад по предмету Информатика от ололоша2013г

Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром.
паскаль. чем скорее, тем лучше! 

  1. Ответ
    Ответ дан merekekz
    uses graphabc;
    var x,y,r:integer;
    begin
    clearWindow(clViolet);
    setBrushColor(clGreen); 
    x:=22; y:=22; r:=20; 
    while x<660 do 
    begin
    circle(x,y,r); 
    x:=x+40; 
    end;
    end.
Самые новые вопросы