Прочитав книгу по , вы усвоили для себя принципы работы теплового двигателя. какую работу с информацией вы совершили? а) ввод и вывод б) ввод, обработку вывод в) только вывод г) ввод и обработку

Конечно я бы выбрала б

Var a:array[1..5,1..7] of integer;
    i,j,kolpol,kolotr:integer;
    respol,resotr:real;
begin
for j:=1 to 7 do begin
  for i:=1 to 5 do begin
    a[i,j]:=random(-50,50);
    write(a[i,j]:4);
  end;
  writeln();
end;
for i:=1 to 5 do begin
  respol:=0;
  resotr:=0;
  kolpol:=0;
  kolotr:=0;
  for j:=1 to 7 do begin
    if a[i,j]>0 then begin
      respol+=a[i,j];
      kolpol+=1;
    end
    else if a[i,j]<0 then begin
       resotr+=a[i,j];
       kolotr+=1;
     end;
  end;
  writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
  writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.

1) Объем куба А**3, объем шара 3.1415*4/3*R**3
процент отходов отношение второго к первому, умноженное на 100
Язык Python
A = float(raw_input("Введите длинну ребра:"))
R = float(raw_input("Введите радиус:"))
print "Отходов %s процентов" % ((3.1415*4/3*R**3)/(A**3)*100)
2) тут все хитрее, пусть маленький радиус r1, а большой r2, 
тогда r2-r1=A и r1/r2=B
решив эту систему получаем
r1 = AB/(1-B) и r2=A/(1-B)
площадь кольца S = 3.14.15*(r2**2-r1**2)
Язык Python
A = float(raw_input("Введите ширину кольца:"))
B = float(raw_input("Введите отношение радиусов:"))
r2 = A/(1-B)
r1=r2*B
print "Площадь кольца %s" % (3.1415*(r2**2-r1**2))