30 паскаль 10 класс получить квадратную матрицу порядка n* n.

Uses GraphABC;

const MaxShar=50;

type shar = record

           x,y:integer;

           dx,dy:integer;

           end;

var i:byte;

   x,y,r:integer;

   shars: array[1..MaxShar] of shar;

begin

randomize;

setwindowsize(500,500);

centerwindow;

r:=10;

setpenwidth(3);

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=7+r+random(500-2*r-14);

 y:=7+r+random(500-2*r-14);

 dx:=random(8) + 1;

 dy:=random(8) + 1;

end;

lockdrawing;

repeat

clearwindow;

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=x+dx;

 if (x+r+dx>=493) or (x-r+dx<=7) then dx:=-dx;

 y:=y+dy;

 if (y+r+dy>=493) or (y-r+dy<=7) then dy:=-dy;

 setpencolor(clBlue);

 setbrushcolor(clBlue);

 circle(x,y,r);

end;

setpencolor(clBlack);

setpenwidth(3);

moveto(5,5);

lineto(495,5);

lineto(495,495);

lineto(5,495);

lineto(5,5);

sleep(1);

redraw;

until false;

end.

Примечание:

В конце программы есть команда sleep(), чем больше в ней значение, тем меньше скорость шариков. Также её можно просто убрать, тогда скорость будет максимальной.

Последний день перед рождеством прошел. зимняя, ясная ночь наступила. глянули звезды. месяц величаво поднялся на небо посветить добрым людям и всему миру, чтобы всем было весело (н. в. гоголь. вечера на хуторе близ диканьки) 239 символів включаючи пробіли між словами, знаки пунктуації і букви. якщо в 8 бітному кодуванню то кожен символ кодується 8 бітами(або 1 байтом) 239*8=1912біт=239байт (щоб перейти від біт до байт треба просто поділити на 8, тому що 1 байт має 8 біт) якщо в 16 бітному(або 2 байтовому) то 239*16=3824біт=478байт