Регистрация
cvthidok
20.08.2022 16:54
Информатика
Есть ответ 👍

Составить программу для рисования звездного неба(в паскале).

141
182
Посмотреть ответы 2

Ответы на вопрос:

yuluto
yuluto
4,4(11 оценок)
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.
toriblinova
toriblinova
4,6(71 оценок)
Var   mas: array[1..1000] of integer;   n, i, c: integer; begin   readln(n);   for i: =1 to n do     readln(mas[i]);   for i: =1 to (n div 2) do   begin     c: =mas[i];     mas[i]: =mas[n-i+1];     mas[n-i+1]: =c;   end;   for i: =1 to n do     write(mas[i],' '); end.

Популярно: Информатика