While10. Дано целое число $$N$$ ($$> 1$$). Найти наибольшее целое число $$K$$, при котором выполняется неравенство $$3^K < N$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program While10; var N,K,Temp :Integer; begin Write('Введите N: '); Readln(N); K:=0; Temp:=3; while Temp<N do begin Temp:=Temp*3; inc(K,1); end; Writeln(K); end. |
Другие задачи из раздела While можно посмотреть здесь.
В строке 7 нужно заменить К:=1 на К:=0
согласен, поправил.