Дано вещественное число А и целое число N больше 0. Вывести все целые степени числа A от 1 до N.
Дано вещественное число А и целое число N>0. Вывести все целые степени числа A от 1 до N.
Гость
Ответ(ы) на вопрос:
Гость1)st:=1; 2)for i:=1 to n do 3)begin 4)st:=st*a; 5)writeln(st) 6)end
Гостьvar n,i:integer;
a,s:real;
Begin
s:=1;
for i:= 1 to n do Begin
s:=s*a;
writeln(s);
end;
End.
Не нашли ответ?
Похожие вопросы