• Люди!!! Срочно,умоляю,помогите,пожалуйста!
    Составить программу для рисования звездного неба(в паскале).

Ответы 1

  • uses graph; var x,y,n,gd,gm,i,c: integer; begin write('звезд='); readln(N); gd:=detect;         initgraph(gd,gm,''); randomize; for i:=1  to n  do  begin               x:=random(640);    y:=random(480);      c:=random(16);      setcolor(c);   circle(x,y,1)      end; readln end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years