Консультация № 138484
29.05.2008, 13:56
0.00 руб.
0 1 1
Уважаемые эксперты,помогите пожалуйста решить задачу:
Вводится стола символов.Сформировать и вывести на экран новую строку,вставив после каждого 3-его символа знак @.
Спасибо!:)

Обсуждение

давно
Старший Модератор
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.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа