Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы