Написать программу в Pascal, которая бы решала задачу: дано целое число A>1. Найдите наименьшое целое неотрицательное q, при котором 5^q>A.

Question

Гемина

9 июля, 16:58

+2

Ответы (1)

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

Михаля · Answer 1

Var a, q:integer;

begin

readln (a) ;

for q:=1 to a do

if power (5, q) >a then

begin

write (q) ;

break;

end;

end.