Дано целое число n(> 1).найдите наибольшее целое число k ,при котором выполнялось неравенство 3 в степени к

antnonova antnonova    3   24.05.2019 05:00    28

Ответы
CleverBoy17 CleverBoy17  20.06.2020 00:33
Var n,i,k,j:integer;

begin

readln(n);
i:=1;
j:=3;

while n>i do begin
i:=i*j;
k:=k+1;
end;

writeln(k-1);

end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика