Дано целое число А. Вывести ** экран все степени числа 5, которые не превышают А....

Question

Дано целое число А. Вывести на экран все степени числа 5, которые не превышают А. (Программа Pascal ABC)

Answer 1

Var
A, n: integer;x: real;

begin
read(A);
n := 0;
for n := 1 to A do
begin
x := power(5, n);
if x <= A then<br> writeln(n);
end;
end.