Question

Pascal:
Для заданной функции Y=10*LnX, где значение Х изменяется от 10 до 80 с шагом 10: вычислить сумму полученных значений.

Answer 1

Program pr;
uses crt;

Var sum,x,y:real;

Begin
x:=10;
sum:=0;

While x<=80 do
   Begin
      y:=10*ln(x);
      sum:=sum+y;
 
      x:=x+10;
    end;  

Writeln('Cумма = ', sum);

readln;
end.