Вычисление A^n на Pascal

Вычисление A^n.

Код на Pascal:

var 
  n,i: integer;
  a,p: real;
begin
  write('Введите a,n: ');
  readln(a,n);
  p := 1;
  for i := 1 to n do
    p := p * a;
  writeln(a,' в степени ',n,' = ',p);
end.


Код на PascalABC.NET:

var 
  n: integer;
  a: real;
begin
  write('Введите a,n: ');
  readln(a,n);
  var p := 1.0;
  for var i := 1 to n do
    p *= a;
  writelnFormat('{0} в степени {1} = {2}',a,n,p);
end.



Просмотров: 1557
10.02.2015, 09:54 -

Категория: Статьи » Программирование » Pascal

Коментарии к Вычисление A^n на Pascal: