Program zadacha; var a,b,c : integer; begin c:=1; write('Введите число ==> '); readln(a); write('Введите его степень ==> '); readln(b); while b<>0 do begin c:=a*c; b:=b-1; end; write('степень числа ==> ',c); end.
program stepen; uses crt; var a,n,i,p : integer; begin write('Введите число a='); readln(a); write('Введите степень числа n='); readln(n); p:=1; for i:=1 to n do p:=p*a; write('Число а в степени n = ',p) end.
var a,b,c : integer;
begin
c:=1;
write('Введите число ==> ');
readln(a);
write('Введите его степень ==> ');
readln(b);
while b<>0 do begin
c:=a*c;
b:=b-1;
end;
write('степень числа ==> ',c);
end.
uses crt;
var a,n,i,p : integer;
begin
write('Введите число a=');
readln(a);
write('Введите степень числа n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*a;
write('Число а в степени n = ',p)
end.