13 lines
236 B
ObjectPascal
13 lines
236 B
ObjectPascal
// Öèêë for. a â ñòåïåíè n
|
|
var
|
|
a: real;
|
|
n: integer;
|
|
|
|
begin
|
|
write('Ââåäèòå a,n: ');
|
|
readln(a,n);
|
|
var p: real := 1;
|
|
for var i:=1 to n do
|
|
p := p * a; // ìîæíî p *= a
|
|
writelnFormat('{0} â ñòåïåíè {1} = {2}',a,n,p);
|
|
end. |