Pascal: Для заданной функции Y=10*LnX, где значение Х изменяется от 10 до 80 с шагом 10: вычислить сумму полученных значений.
Pascal:
Для заданной функции Y=10*LnX, где значение Х изменяется от 10 до 80 с шагом 10: вычислить сумму полученных значений.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы