Составьте программку вычисления ступени числа а с естественным показателем n. (Записать

Составьте программу вычисления ступени числа а с естественным показателем n. (Записать варианты программки с различными видами циклов while, repeat, for).

Задать свой вопрос
1 ответ
//////////////////////////FOR
Var   a, i, n, sum: integer;  
Degin  
  ReadLn(a, n);  
  Sum := 1;  
   For i := 1 to n do sum := sum * a;  
  WriteLn(sum);
End.

//////////////////////////WHILE
Var   a, i, n, sum: integer;  
Begin  
 Read(a, n);  
 Sum := 1;  
  While i lt;gt; n do  
   Begin    
    Sum := sum * a;  
    Inc(i);  
   End;  
 Writeln(sum);
End.

//////////////////////////REPEAT
Var   a, i, n, sum: integer;  
Begin  
 Read(a, n);  
 Sum := 1;  
  If n lt;gt; 0 then    
   Repeat      
     Begin        
       Sum := sum * a;        
       Inc(i);      
     End;    
   Until i = n;  
  WriteLn(sum);
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт