Удалить из строки все символы не являющиеся буквами

@ваня иванов · Регистрация: 30.11.2009

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

помогите пожалуйста!!!!!!!!!!!
Введите строку сивмолов.удалить из строки все символы не являющиеся буквами.вывести на экран изменённую строку.

@Inadequate · 01.12.2009, 20:10

Pascal

const
  m=['a'..'z','A'..'Z'];
var
  s:string;
  i:integer;
begin
  readln(s);
  i:=1;
  repeat
    if not(s[i] in m) then
      delete(s,i,1)
    else
      inc(i);
  until
    i>length(s);
  writeln(s)
end.

@ваня иванов 0 / 0 / 0 Регистрация: 30.11.2009 Сообщений: 10
		1
	Удалить из строки все символы не являющиеся буквами 01.12.2009, 20:04. Показов 2687. Ответов 1 Метки нет (Все метки) помогите пожалуйста!!!!!!!!!!! Введите строку сивмолов.удалить из строки все символы не являющиеся буквами.вывести на экран изменённую строку. 0

Опции темы

Удалить из строки все символы не являющиеся буквами

Решение