Консультация № 138486
29.05.2008, 14:04
0.00 руб.
0 1 1
Уважаемые эксперты!Помогите пожалуйста решить следующую задачу:
Вводится массив строк символов.Сформировать строку,содержащую только нечетные элементы массива,соединенные знаком "/". Спасибо:)

Обсуждение

давно
Профессор
401888
1232
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.
Форма ответа