Составить программу вычисления выражения 1^k + 2^k + … + n^k

Даны натуральные числа n и k. Составить программу вычисления выражения 1^k + 2^k + … + n^k. Для решения задачи нужно организовать два цикла, один из которых поместим внутрь другого. Такие конструкции называют вложенными циклами.

Решение

Для вычисления указанной суммы целесообразно организовать цикл с параметром i

for i:=1 to n

в котором, во-первых, вычислялось бы очередное значение y = i^k

y:=y*k

и во-вторых, осуществлялось бы накопление суммы прибавлением полученного слагаемого к сумме всех предшествующих (s = s + y).

s:=s+y

Код:

program Vychislenie_vyrazheniya;
var n, k, y, i, s, m: integer;
begin
   writeln(‘Введите значения n и k’);
   readln(n,k);
   s:=0
   for i:=1 to n do begin
     y:=1;
     for i:=1 to k do begin
       y:=y*i;
     end;
     s:=s+y;
   end;
   wtiteln(‘Ответ: ‘, s);
end.