Question

Дано целое число а и целое число N (N>0) Используя цикл ,вывести все степени числа А от 1 до N

Answer 1

var   a,s: real;  
n,i: byte;
begin   write('Введите вещественное a: ');  
readln(a);  
repeat     write('Введите целое n (n>0): ');    
readln(n);  
until (n>0);  
s:=1;  
for i:=1 to n do   begin     s:=s*a;    
writeln(a,' в степени ',i,' = ',s);  
end;  
readln;  //в pascalAbc.net - не обязательно
end.

Answer 2

program for16;var A, Pow: real; N, i: integer; begin write('Введите A и N: '); read(A, N); Pow := 1; for i := 1 to N do begin Pow := Pow * A; // Умножаем предыдущую число на А writeln(A, ' в ', i, ' степени равно ', Pow); end;end.