Вводится предложение. Удалить из него 2, 3 и 5 слова

@Slavchik · Регистрация: 21.03.2014

Студворк — интернет-сервис помощи студентам

Вводится предложение. Удалить из него 2, 3 и 5 слова.

@CodeR · 25.04.2014, 13:20

Pascal

Const mn=[' ','.',',','!','?'];
Var s,sl,st:string;
    i,k:byte;
Begin
    write('Предложение: ');readln(s);
    s:=s+' ';
    For i:=1 to Length(s) do
     if not(s[i] in mn) then sl:=sl+s[i]
     else
     Begin
       if sl<>'' then inc(k);
       if not(k in [2,3,5]) then st:=st+sl+s[i];
       sl:='';
     End;
    writeln('Полученное предложение = ',st);
    readln;
End.

@Slavchik 0 / 0 / 0 Регистрация: 21.03.2014 Сообщений: 11
		1
	Вводится предложение. Удалить из него 2, 3 и 5 слова 25.04.2014, 08:58. Показов 1415. Ответов 1 Метки нет (Все метки) Вводится предложение. Удалить из него 2, 3 и 5 слова. 0

	25.04.2014, 13:20

Опции темы

Вводится предложение. Удалить из него 2, 3 и 5 слова

Решение