Дана непустая последовательность символов

@volfing · Регистрация: 12.11.2013

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

Помогите пожалуйста написать программу,не могу полностью осмыслить поставленную задачу

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

@ildwine · 16.11.2013, 15:51

Pascal

var
  s : string;
  a : set of char;
  i : byte;
begin
  a := [];
  write('введите последовательность символов: ');
  readln(s);
  for i := 1 to length(s) do
    a := a + [s[i]];
  writeln('множество символов из последовательности: ', a);
  readln
end.

@Cyborg Drone · 17.11.2013, 03:36

ildwine, неверно. Не соответствует заданию. Должно быть

Pascal

1 2	for i := 1 to length(s) do if s[i] in ['0'..'9', '+', '-', '*', '/'] then a := a + [s[i]];

@ildwine · 17.11.2013, 12:39

Cyborg Drone, согласен.

@volfing · 17.11.2013, 12:51 **[ТС]**

Большое спасибо

@volfing 0 / 0 / 1 Регистрация: 12.11.2013 Сообщений: 10
		1
	Дана непустая последовательность символов 16.11.2013, 15:45. Показов 799. Ответов 4 Метки нет (Все метки) Помогите пожалуйста написать программу,не могу полностью осмыслить поставленную задачу Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности: цифры и знаки арифметических операций. 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	17.11.2013, 12:39	4
	Cyborg Drone, согласен. 0

@volfing 0 / 0 / 1 Регистрация: 12.11.2013 Сообщений: 10
	17.11.2013, 12:51 [ТС]	5
	Большое спасибо 0