Var
k,p,i:LongInt;
x,y,z:string;
Begin
ClrScr;
WriteLn(' „ л ¤ўҐ бва®ЄЁ: ЇҐаў п - a, ўв®а п - bc.');
WriteLn('Џа®Ја ¬¬ Їа®Ё§ў®¤Ёв Є®Є ⥠жЁо бва®Є ¬Ґв®¤®¬ ”ЁЎ® ззЁ,');
WriteLn('Ё ўлў®¤Ёв бЁ¬ў®« ў гЄ § ®© Ї®§ЁжЁЁ "p" гЄ § ®© бва®ЄЁ "k".');
WriteLn;
Write('‚ўҐ¤ЁвҐ ®¬Ґа бва®ЄЁ, k='); ReadLn(k);
Write('‚ўҐ¤ЁвҐ ®¬Ґа Ї®§ЁжЁЁ, p='); ReadLn(p);
x:='a';
y:='bc';
If k=1 then y:='a';
If k=2 then y:='bc';
For i:=3 to k do
Begin
z:=y;
y:=Concat(x,y);
x:=z;
End;
If (P>Length(y)) or (P=0) then WriteLn('No solution.')
else
Begin
y:=copy(y,p,1);
WriteLn(y);
End;
ReadLn;
End.
Как вариант. Делал в обычном турбопаскале, почему-то беда со шрифтами. Думаю, можно сделать и проще, но не до этого щас.
P.S. Первые три writeln - просто пояснение пользователю, что делает программа. Вторые два - соответственно, ввод k и p. Дальше все очевидно.
P.P.S. В следующий раз указывайте, что это задача ФРТК.
