Нужно написать программу в паскале АВС

Даны целые положительные числа N и K. Найти сумму:

1(в степени к)+2(в степени к)+...+N(в степени к).

1

Ответы и объяснения

2013-10-15T14:18:40+00:00
A = k
в цикле
sum=sum+a
a=a*k
Сделала сама, но все равно спасибо. Вот решение:
program proba;
var a,c,s,N,K:real; i,j:integer;
begin
readln (N,K);
a:=1; s:=0;
While a<=N do begin
c:=exp(K*ln(a));
s:=s+c;
a:=a+1;
end;
writeln (s);
end.