Напечатать множество, элементами которого являются встречающиеся в последовательности символы

@Slavian · Регистрация: 08.09.2009

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

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности символы цифры и знаки арифметических операций.

@Mysterious Light · 11.09.2009, 17:55

Вывод неупорядоченого перечня символов.

Pascal

var s:string; e:set of char; i:integer;
begin
readln(s);
e:=[];
for i:=1 to length(s) do 
    if s[i] in ['0'..'9','-','+','*','/'] 
        then e:=e+[s[i]];
for i:=0 to 255 do if chr(i) in e then write(chr(i));
readln;
end.

@Slavian · 11.09.2009, 17:58 **[ТС]**

благодарствую)

@Slavian 0 / 0 / 0 Регистрация: 08.09.2009 Сообщений: 17
		1
	Напечатать множество, элементами которого являются встречающиеся в последовательности символы 11.09.2009, 17:45. Показов 2025. Ответов 2 Метки нет (Все метки) Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности символы цифры и знаки арифметических операций. 0

@Slavian 0 / 0 / 0 Регистрация: 08.09.2009 Сообщений: 17
	11.09.2009, 17:58 [ТС]	3
	благодарствую) 0

Напечатать множество, элементами которого являются встречающиеся в последовательности символы

Решение