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

@ExPlAnEd · Регистрация: 27.11.2013

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

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

@mibin · 28.11.2013, 10:36

Ну примерно как-то так можно:

Pascal

program my1
var
   str1: String;
   str2: String;
   
   i: integer;
   mn: set of char;
begin
  mn := ['0','1','2','3','4','5','+','-','*','/'];
  str1 := '0kc9c2n9024n9c521n310cn-c14c14gh';
  str2 := '';
  for i := 1 to Length(str) do
    if str[i] in mn then
      str2 := str2 + str1[i];
  
  writeln('Результирующая строка: ' + str2);
end.

Добавлено через 5 минут
Единственное я опечатался str замени на str1 и все будет норм.

@ExPlAnEd 0 / 0 / 0 Регистрация: 27.11.2013 Сообщений: 28
		1
	Построить и напечатать множество, элементами которого является встречающиеся в последовательности 28.11.2013, 10:21. Показов 3243. Ответов 1 Метки нет (Все метки) Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого является встречающиеся в последовательности:цифры от ‘0’ до ‘5’ и знаки арифметических операций 0

	28.11.2013, 10:36

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

Решение