Question

Составить программу ,которая находит наименьшее натуральное n, при котором 2n>= 20 (2 в степени n ), и результат наименьшеечисло n - выводит на экран

Answer 1

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.