Var i,n:real;
begin
while n<100000 do
begin i:=i+1;
n:=n+power(4,i);
end;
writeln(Ответ: ,i)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.