Дано целое число А. Вывести на экран все степени числа 5, которые не превышают А. (Программа Pascal ABC)
Дано целое число А. Вывести на экран все степени числа 5, которые не превышают А. (Программа Pascal ABC)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы