Придумайте программу в Паскаль ABC для вычисления следующей величины:
1+а+а^2+K+a^K
а и К задаются пользователем.

1
program _4_2;var
s1,a,d:real;

k,i,n: integer;
begin
writeln('Ââåäèòå A');
readln(a);
writeln('Ââåäèòå K');
readln(k);
d:=a;
for i:=1 to k do
begin
d:=a;
d:=d*a;
writeln('d=',d);
end;
s1:=1+a+(a*a)+k+d;
writeln('s1=',s1);
end.
вот мой вариант программы, но он не верно возводит А в степень Кprogram _4_2;
var
s1,a,d:real;

k,i,n: integer;
begin
writeln('Ââåäèòå A');
readln(a);
writeln('Ââåäèòå K');
readln(k);
d:=a;
for i:=1 to k do
begin
d:=a;
d:=d*a;
writeln('d=',d);
end;
s1:=1+a+(a*a)+k+d;
writeln('s1=',s1);
end.

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

2013-12-17T15:19:40+04:00
var n,k:real;
begin
readln(n,k);
writeln(sqr(n)+k+exp(ln(n)*k)+n+1);
end.

Функция exp(ln(n)*k) возводит число n в степень k