// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.
<u><em>Тестовое решение:</em></u>
n= 5350004533300045645600
8 нулей
1) i=17 k=17 I=ki I=17*17 I=289
2)i=29 k=29 I=ki I=29*29 I=841
3)i=14 k=14 I=ki I=14*14 I=196
|----------------
| |
| |
|---------------|
1.6 раз
2.1 раз
3.0 раз
4.1 раз
5.7 раз
6.0 раз
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>