Недавнее содержимое от кусака

спасибо)

спасибо))) только еще скажите почему в последней строчке выдает 64 ошибку? program ex18; const n=3; {kol-vo predmetov} type st=record fam:string; im:string; oc:array[1..n] of integer; end; var j,k,i:integer; t:array[1..30]of st; begin writeln('vvedite kol-vo studentov')...

хорошо. скажите как оформить в виде таблицы и отсортировать по убыванию?

Подпрограммы и записи в паскаль помогите пожалуйста! 1) заданы окружность (x-a)^2+(y-b)^2=r^2 и две точки p={p1,p2} и f(f1,f2} вычислить сколько точек лежит внутри окружности. проверку принадлежности точки к окружности оформить в виде функции. данные: а=3.2, в=4.1 r=2. p,f - произвольно...