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<n) do
              begin
                            ans:=ans*a*a;
                            inc(i);
                            writeln(ans);
               end;
end.
Так? По тести)

Answer 2

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

Answer 3

не надо

Answer 4

я уже сделал

Answer 5

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

Answer 6

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