profile
Опубликовано 5 лет назад по предмету Информатика от Beetlejuice541

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

  1. Ответ
    Ответ дан ProStranStvo
    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.
    Так? По тести)
    1. Ответ
      Ответ дан Beetlejuice541
      а можно сделать с for и без inc?
    2. Ответ
      Ответ дан Beetlejuice541
      не надо
    3. Ответ
      Ответ дан Beetlejuice541
      я уже сделал
    4. Ответ
      Ответ дан Beetlejuice541
      но все ровно спасибо
    5. Ответ
      Ответ дан ProStranStvo
      а да точно:D протупил)) Просто сначала другая идея была)
Самые новые вопросы