Команда "220 вольт"
Девиз:мы не можем без двеженья мы всегда под напряженьем.
Пусть F(n) - число способов замостить дорожку 2xn. Тогда F(1) = 1, F(2) = 2.
Если n > 2, то можно либо положить с краю одну плитку вертикально, и заполнять осташуюся часть форожки 2x(n - 1), или положить две горизонтально и заполнять 2x(n - 2). Первое можно выполнить F(n - 1) способами, второе F(n - 2) способами. Поэтому F(n) = F(n - 1) + F(n - 2).
Получилось определение чисел Фибоначчи, F(n) - n- ое число Фибоначчи, F(n) = Fib(n).
Ответ. F(11) = Fib(11) = 144.
Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
Любая информация является таковой только по причине того что она была принята отнеконго источника. То есть была передана.