1. дана длина ребра куба н. найти объем куба v и площадь его боковой поверхности s. 2. три сопротивления r1, r2, r3 соединены параллельно. найти сопротивление соединения. 1 1 1 1 _ = _ + _ + _ r r1 r2 r3 (если что, это дроби)

#1)

a=float(

v=pow(a,3)

s='pow(a,2)*4'

print('обьем-',v,'\nплощадь боковой поверхности-',eval(s))

#2

s=0

for i in range(3):

  x=input()

  s+=(1/float(x))

print(s)

1. надо добавить точку в последней строке программы. иначе работать не будет. 2. меняется всего одна строка в программе: program pr2; type   student = record {объявление нового типа данных student}       lastname: string; {фамилия студента}       bal: array [1..5] of integer; {массив для 5-ти оценок}       average: real {средний студента}   end; var   pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student}   n, i, j, s: integer; {переменные целого типа} begin   write('введите количество студентов: ');   readln(n);   for i : = 1 to n do   begin{запрос данных по n студентам}       with pupil[i] do       begin           write('введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i}           readln(lastname);           s : = 0; {целочисленная переменная для определения суммы студента}           for j : = 1 to 5 do           begin{цикл для обработки 5-ти оценок каждого студента}               write('введите оценку за экзамен №: ', j, ': ' );               readln(bal[j] );               s : = s + bal[j]; {суммирование 5-ти оценок студента}           end;           average : = s / 5; {определение среднего значения и запись в переменную average}       end;   end;   writeln;   writeln( 'студенты, имеющие средний больший или равный 4');   for i : = 1 to n do   begin       if pupil[i].average > = 4 then {если средний студента > =4}       write(pupil[i].lastname,', ');   end; end.

program exs; var a : array [1..1000] of integer; n, i : integer;

procedure qsort(l, r: integer); var i, j, key, buf : integer; begin i : = l; j: = r; key: =a[(l+r) div 2]; repeat while a[i] < key do inc(i); while a[j] > key do dec(j); if i< =j then begin buf: =a[i]; a[i]: =a[j]; a[j]: =buf; inc(i); dec(j); end; until (i> j); if (l < j) then qsort(l, j); if (i < r) then qsort(i, r); end;

begin readln(n); for i: = 1 to n do begin read(a[i]); end; qsort(1, n); for i: =1 to n do begin write(a[i], ' '); end; end.