Даны две строки. Вставить в первую строку вторую строку, перед каждым знаком препинания ,.:!?;

@DASHA_93 · Регистрация: 07.07.2013

Ребята помогите решить пожалуйста вот такую задачу. Даны две строки. Вставить в первую строку вторую строку, перед каждым знаком препинания ,.:!?;

Kodzaev · 13.07.2013, 18:28

Pascal

Var
  s1,s2: String;
  i: Byte;
BEGIN
Write('Введите 1 строку: ');
Readln(s1);
Write('Введите 2 строку: ');
Readln(s2);
For i:=Length(s1) downto 1 do
If s1[i] in [',','.',':','!','?'] Then
Insert(s2,s1,i);
Writeln(s1);
Readln
END.

@DASHA_93 0 / 0 / 0 Регистрация: 07.07.2013 Сообщений: 72
		1
	Даны две строки. Вставить в первую строку вторую строку, перед каждым знаком препинания ,.:!?; 13.07.2013, 17:09. Показов 1549. Ответов 1 Метки нет (Все метки) Ребята помогите решить пожалуйста вот такую задачу. Даны две строки. Вставить в первую строку вторую строку, перед каждым знаком препинания ,.:!?; 0

Опции темы

Даны две строки. Вставить в первую строку вторую строку, перед каждым знаком препинания ,.:!?;

Решение