1. квіткова клумба має форму круга. обчислити її периметр і площу за радіус паскаль

Var r,s,p: real; begin write('r='); readln(r); s: =pi*sqr(r); p: =2*pi*r; writeln('площадь: ',s); writeln('периметр: ',p) end.

Const n=3; type student=recordfam: string[20]; year: integer; sex: string[1]; kurs: integer; sport: string[30]; end; var x: array[1..n] of student; i,j: integer; p: student; beginfor i: =1 to n dowith x[i] do beginwriteln('сведенья о ',i,' студенте: '); writeln('фамилия: '); read(fam); writeln('год рождения: '); read(year); writeln('пол( м или ж ): '); read(sex); writeln('курс: '); read(kurs); writeln('вид спорта: '); read(sport); end; for i: =1 to n-1 dofor j: =i+1 to n doif x[i].fam> x[j].fam then beginp: =x[i]; x[i]: =x[j]; x[j]: =p; end; for i: =1 to n do beginwith x[i] doif (sex='ж') then writeln('фамилия студентки:   ',fam,' курс:   ',kurs,' вид спорта:     ',sport); end; end.

Основная идея: во массиве p строим двусвязный список, элементы которого указывают на предка и потомка члена массива, имеющего такое же значение. сначала выводим элементы, имеющие потомков, но не имеющие предков - это будут элементы, которые встречаются более одного раза, а их порядок следования совпадет с порядком следования в массиве. затем выводим элементы, которые не имеют ни предков, ни потомков, т.е. встречаются в массиве один раз. const   n = 100; var   a: array[1..n] of integer;   p: array[1..n, 1..2] of integer;   {3 - индекс предыдущего элемента     4 - индекс следующего элемента}   i, j, e: integer; begin   randomize;   for i : = 1 to n do   begin       e : = random(51) - 25;       a[i] : = e;       p[i, 1] : = 0;     p[i, 2] : = 0   end;   for i : = 2 to n do   begin       j : = i - 1;       e : = a[i];       repeat           if e = a[j] then           begin               p[j, 1] : = i;               p[i, 2] : = j;               j : = 0           end           else               j : = j - 1       until j = 0   end;   for i : = 1 to n do       if (p[i, 1] > 0) and (p[i, 2] = 0) then write(a[i]: 4);   for i : = 1 to n do       if (p[i, 1] = 0) and (p[i, 2] = 0) then write(a[i]: 4);   writeln end. тестовое решение:   -15 -21  -4  24  20  16    4  14    3    1  25  -9 -14  10  12 -13    9  -2 -16 -10 -25  21    2    8  15  -1  19  22  18 -23    6  -6 -17 -24  17 -20  -7 -12 -19  -3    7  23