Строки. Из строки символов удалить символы, отличных от русских букв и пробелов

14.05.2012, 11:34. **Показов** 1359. **Ответов** 2

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

Задана строка из произвольного количества слов, разделенных пробелами. Из заданной строки символов удалить символы, отличных от русских букв и пробелов

Помогите пож-та одну задачу не могу сделать завтра уже сдавать((

@CodeR · 14.05.2012, 14:55

Pascal

Var s:string;
    i:integer;
Begin
    i:=1;
    write('Введите строку: ');readln(s);
    While i<=length(s) do
     if (s[i] in ['а'..'я','А'..'Я']) or (s[i]=' ') then inc(i) else Delete(s,i,1);
    writeln('Полученная строка: ',s);
End.

14.05.2012, 17:06

Огромное спасибо!!))

отдуши

Хэнкок
		1
	Строки. Из строки символов удалить символы, отличных от русских букв и пробелов 14.05.2012, 11:34. Показов 1359. Ответов 2 Метки нет (Все метки) Задана строка из произвольного количества слов, разделенных пробелами. Из заданной строки символов удалить символы, отличных от русских букв и пробелов Помогите пож-та одну задачу не могу сделать завтра уже сдавать((

Хэнкок
	14.05.2012, 17:06	3
	Огромное спасибо!!)) отдуши

Строки. Из строки символов удалить символы, отличных от русских букв и пробелов

Решение