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

Question

Информатика

Ефимия

14 мая, 07:04

Дано целое число А. Вывести на экран все степени числа 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.