petyaGavrikov

Verified answer

Var n1,n2,k:integer;
begin
write('N1 = '); readln(n1);
write('N2 = '); readln(n2);
k:=0;
while n1>n2 do
 begin
 n1:=n1-n1 div 3; k:=k+1;
 end;
writeln('k = ',k);
end.

Пример:
N1 = 10000
N2 = 20
k = 16