Удалить из текста все символы, кроме букв и пробелов

@Анжела Дворкова · Регистрация: 17.11.2014

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

нужно удалить из текста все символы кроме букв и пробелов

Pascal

uses crt;
var
text:string[60];
i:char;
begin;
clrcsr;
A:=['a'..'z','A'..'Z',#32];
write('enter text:');
readln(text);
for i:=length(text) downto 1 do
if not text[i] in A then
delete(text,i,1);
write('text', text);
end.

что не так??

@Puporev · 07.10.2015, 15:21

Pascal

1	if not (text[i] in A) then

@APALoff · 07.10.2015, 15:22

Множество "А" не описано (не объявлено).

Добавлено через 1 минуту
Да оно тут и не нужно, сразу проверять на вхождение в перечисленные диапазоны.

@Puporev · 07.10.2015, 15:23

Pascal

1	if not (text[i] in ['a'..'z','A'..'Z',#32]) then

@Анжела Дворкова · 07.10.2015, 15:25 **[ТС]**

А как его обьявить?
A:string

так?

@Puporev · 07.10.2015, 15:30

Pascal

1	var A:set of char;

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	07.10.2015, 15:22	3
	Множество "А" не описано (не объявлено). Добавлено через 1 минуту Да оно тут и не нужно, сразу проверять на вхождение в перечисленные диапазоны. 0

@Анжела Дворкова 0 / 0 / 0 Регистрация: 17.11.2014 Сообщений: 8
	07.10.2015, 15:25 [ТС]	5
	А как его обьявить? A:string так? 0

	07.10.2015, 15:30