266. определить, как будут изменяться потери h=n∙S∙Q2если сопротивление S=0.001, а количество n будет пос

[Алексей91]

266. определить, как будут изменяться потери h=n∙S∙Q2если сопротивление S=0.001, а количество n будет постепенно увеличиваться с 2 до 12 по одному. Подачу насоса Q (л/с) задать с клавиатуры. Найти среднее значение потерь при заданных условиях. Срочно

[rus12]

Вроде так

const
     s=0.001;
   var
   sum,pot,h,Q,i:real;
   n:integer;
begin
  writeln ('vvedite podachu nasosa');
  readln (Q);
  sum:=0;
  for n:= 2 to 12 do
  begin
    h:=n*s*Q*Q;
    sum:=sum+h;
  end;
   pot:=sum/10;//среднее значение
   writeln('srednee znachenie poter:',pot:4:5);
   readln;
end.