Составить программу ,которая находит наименьшее натуральное n, при котором 2n больше = 20 (2 в степени n ), и результат наименьшеечисло n - выводит на экран
Составить программу ,которая находит наименьшее натуральное n, при котором 2n>= 20 (2 в степени n ), и результат наименьшеечисло n - выводит на экран
Гость
Ответ(ы) на вопрос:
Гостьvar n,a:integer;
begin
n:=1;
a:=2;
repeat
for i:=1 to n do
a:=a*2;
n:=n+1;
until a>=20;
writeln(n)
end.
Не нашли ответ?
Похожие вопросы