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>
Приёмник!!!!!!!!!!!!!!!!!!!!!!!!!!1
R = 6400
pi = 3.14
s = 4 / 3 * pi * r ^ 3
l = 2 * pi * r
PRINT "S="; s
PRINT "L="; l<span>
</span>