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

Question

Валюня

18 июня, 10:47

+3

Ответы (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.