30.05.2008, 07:04
общий
это ответ
Здравствуйте, Igor lukashov!
Как мы договорилисьна форуме, это не массив строк, а массив символов, т.е. одна строка, то так и делаем.
Решение с пояснениями в приложении.
Приложение:
uses crt;var s,s1:string; n,i,j:integer;beginclrscr;write(‘Vvedite stroku: ‘);readln(s);writeln;s1:=‘‘; {обнуляем новую строку}for i:=1 to length(s)-1 do {просматриваем до предпоследнего символа} if i mod 2<>0then {если номер символа нечетный} begin s1:=s1+s[i]+‘/‘; {переносим его в новую строку и добавляем заданный символ} end;if length(s) mod 2<>0 then {если длина строки нечетная}s1:=s1+s[length(s)]; {добавляем последний символ}writeln(s1);readlnend.