Помогите))
Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N.
var
A, r:real;
N, s:integer;
begin
s := 1;
write(a = ); readln(a);
write(n = ); readln(n);
r := a;
while r <= n do
begin
writeln(s);
inc(s);
r := r * a;
end;
if a > n then
writeln(a , в любой степени >= 1 будет больше числа , n);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
