PASCAL!!!нужно возвести число(любое) в ЧЕТНУЮ СТЕПЕНЬ n количество раз.например число 2...

Question

PASCAL!!!
нужно возвести число(любое) в ЧЕТНУЮ СТЕПЕНЬ n количество раз.
например число 2 возводим в четные степень
2 в 2=4
2 в 4 =16
2 в 6=64
и тд.

Answer 1

Var a,n,i,ans:integer;
begin
              readln(a);
              readln(n);
              i:=0;
              ans:=1;
              while(i
              begin
                            ans:=ans*a*a;
                            inc(i);
                            writeln(ans);
               end;
end.
Так? По тести)

Comments

longint лучше

---

или длинная арифметика нужна?

---

а можно сделать с for и без inc?

---

не надо

---

я уже сделал

---

но все ровно спасибо

---

а да точно:D протупил)) Просто сначала другая идея была)