Нужно написать программу в паскале АВС
Даны целые положительные числа N и K. Найти сумму:
1(в степени к)+2(в степени к)+...+N(в степени к).
Ответы
Ответ дал:
0
a = k
в цикле
sum=sum+a
a=a*k
в цикле
sum=sum+a
a=a*k
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад