Паскаль,написать код. Найти сумму числового ряда: 1^m + 2^m + 3^m + ... +n^m
Паскаль,написать код. Найти сумму числового ряда: 1^m + 2^m + 3^m + ... +n^m
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET
var
n,m,i:integer;
sum:real;
begin
readln(n,m);
for i:=1 to n do
sum:=sum+power(i,m);
writeln(sum);
end.
Гость//Pascal ABC.Net 3.0, сборка 1053
var
n,m,i:integer;
s:double;
begin
Write('Введите натуральные значения n и m: ');
Read(n,m);
s:=0;
for i:=1 to n do s:=s+exp(m*ln(i));
Writeln('Сумма ряда равна ',s)
end.
Тестовое решение:
Введите натуральные значения n и m: 5 8
Сумма ряда равна 462979
Введите натуральные значения n и m: 30 40
Сумма ряда равна 1.62897283055013E+59
Не нашли ответ?
Похожие вопросы