Паскаль,написать код. Найти сумму числового ряда: 1^m + 2^m + 3^m + ... +n^m
Answers & Comments
simbion0
//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
Answers & Comments
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