Question

Среди чисел 3,9,27,81....Найдите номер первого шестизначного числ....программа паскаль

Answer 1

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