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

Question

Информатика

Катена

11 февраля, 16:12

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

+1

Ответы (1)

Знаете ответ на вопрос?

Трифон · 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 (x) ;

end;

end.