Вычисление A^n на Pascal
Вычисление A^n.
Код на Pascal:
Код на PascalABC.NET:
Код на 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.
10.02.2015, 09:54 -
Категория: Статьи » Программирование » Pascal