const E=115; r=29.7; var RR,i:integer; P:real; begin i:=1; while i<=10 do begin if i<6 then RR:=i*10 else RR:=(i-5)*50+50; P:=RR*SQR(E/RR+r); write(P:10:2); inc(i) end; readln; end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.