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

Question

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

Comments

program _4_2;vars1,a,d:real;k,i,n: integer;beginwriteln('Ââåäèòå 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;vars1,a,d:real;k,i,n: integer;beginwriteln('Ââåäèòå 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.

Answer 1

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