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
writeln(n);
end;
end.

Answer 2

Вот пример программы на языке Pascal ABC, которая выводит все степени числа 5, не превышающие заданное число A:

pascalCopy code
program PowersOf5;

var
  A, powerOf5, result: integer;

begin
  write('Введите число A: ');
  readln(A);

  powerOf5 := 1;
  result := 1;

  while result <= A do
  begin
    writeln(powerOf5);
    powerOf5 := powerOf5 * 5;
    result := result + powerOf5;
  end;
end.

Программа запрашивает у пользователя число A, а затем использует цикл while для нахождения и вывода всех степеней числа 5, которые не превышают заданное число A.