Цитата:
Сообщение от QWARTAL
о
1.Вычислить сумму квадратных корней и корней третьей степени членов натурального ряда в диапазоне от 1 до 37 млн.
|
Вроде так
Вычисление идет несколько секунд, т.к. членов много 37 млн.
Код:
var a,b,sum1,sum2:real;
i:longint;
begin
sum1:=0;
sum2:=0;
for i:=1 to 37000000 do begin
a:=sqrt(i);
sum1:=sum1+a;
b:=exp(1/3*ln(i));
sum2:=sum2+b;
end;
writeln('summa kvadratnih kornei = ',sum1:2:2);
writeln('summa kubicheskih kornei = ',sum2:2:2);
readln;
end.
Проверь правильность на примере 3-ёх членов.