давно
Старший Модератор
31795
6196
29.05.2008, 14:31
общий
это ответ
Здравствуйте, Igor lukashov!
Всё решается с помощью рекурсии.
Т.к. длина строки постояно изменяется, знак @ вставляется с конца строки.
Удачи!
Приложение:
var a:string; b:integer; {рекурсивная функция} function Insert_3(var s:string;c:integer):string; begin {условие рекурсии} if (c*3)<=length(s) then begin {вызываем самоу себя} Insert_3:=Insert_3(s,c+1); {вставляем символ} insert(‘@‘,s,3*c+1); end; {возвращаем строку} Insert_3:=s; end;begin {вводим строку} write(‘Enter string:‘); readln(a); {выводим результат} write(‘Result:‘,Insert_3(a,1));end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.