Обработка последовательностей символов

@Настюфка=) · Регистрация: 19.06.2011

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

Удалите из заданного текста все символы, не являющиеся буквами и замените каждую большую букву одноимённой малой.

@Vovcheg · 30.06.2011, 08:56

Поиск... удалить все символы, которые не являются буквами или цифрами, и заменив каждую большую букву одноименной малой

@ZevsNet · 03.07.2011, 19:47

Pascal

var
    _Str:String;// предложение не длиньше 255(использовать pchar).
    len:byte;
    i:integer;
begin
    write('Enter text:');
    readln(_Str);
    len:=length(_Str);
    for i:=1 to len do
    begin
        if(_Str[i]in['A'..'Z','a'..'z','А'..'Я','а'..'я'])then
        begin
            if(_Str[i]in['A'..'Z','А'..'Я'])then
            begin
                _Str[i]:=LowCase(_Str[i]); 
            end;
        end
        else
        begin
            _Str[i]:=' ';
        end;
    end;
    write('Результат:');
    write(_Str);
end.

@Настюфка=) 0 / 0 / 0 Регистрация: 19.06.2011 Сообщений: 24
		1
	Обработка последовательностей символов 30.06.2011, 03:29. Показов 1083. Ответов 2 Метки нет (Все метки) Удалите из заданного текста все символы, не являющиеся буквами и замените каждую большую букву одноимённой малой. 0

@Vovcheg 38 / 38 / 18 Регистрация: 16.05.2011 Сообщений: 139
	30.06.2011, 08:56	2
	Поиск... удалить все символы, которые не являются буквами или цифрами, и заменив каждую большую букву одноименной малой 0

	03.07.2011, 19:47

Обработка последовательностей символов

Решение