Question

сколько натуральных степеней четверки надо сложить, чтобы полученная сумма стала шестизначной? Pascal

Answer 1

var i,n:real;
begin
while n<100000 do
  begin  i:=i+1;
  n:=n+power(4,i);
  end;
writeln('Ответ: ',i)
end.