Var k,k1,k2,kn,n,s:integer;
begin
write('k = ');
readln(k);
k1:=100;
k2:=100;
s:=k1+k2;
if k<=k1 then n:=1 else n:=2;
while s<k do
begin
n:=n+1;
kn:=k1+k2;
s:=s+kn;
k1:=k2;
k2:=kn;
end;
writeln('n = ',n);
end.
Пример:
<span>k = 1100
n = 5</span>
<span>д) мне так кажется незнаю почему но мне кажется кинотеатр</span>
Прикрепил текстовый документ, ибо сюда не удобно вставлять код.