Составить программу. На болоте растут кувшинки. В день их количество удваивается. За сколько дней на болоте станет не меньше N кувшинок ,если первоначально их было К штук.
Ввод:N,K
Вывод:число результат .
Ввод:N,K
Вывод:число результат .
Answers & Comments
Verified answer
Ответ:
program Calc;
var
n, k, i: Integer;
begin
Write ('N, K = ');
ReadLn (n, k);
i := 0;
while k < n do begin
Inc (i);
k := k * 2;
end;
WriteLn (i, ' дней');
ReadLn;
end.