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

@Juliaa · Регистрация: 24.10.2013

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

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

Kodzaev · 24.10.2013, 18:26

Если в множестве не все знаки препинания, добавьте их сами

Pascal

var
  s: string;
  m: set of char;
  i: byte;
 
begin
  Writeln('Введите строку:');
  Readln(s);
  for i := 1 to Length(s) do
    if s[i] in ['0'..'6', #32, ',', '.', '?', '!', ';', ':', '''', '"'] then
      Include(m, s[i]);
  Writeln('Множество:');
  for i := 0 to 255 do
    if Chr(i) in m then
      Write(Chr(i), #32);
  Readln
end.

@Juliaa 2 / 2 / 1 Регистрация: 24.10.2013 Сообщений: 200
		1
	Требуется построить и напечатать множество, элементами которого являются встречающиеся в строке знаки препинания и цифры от ‘0’ до ‘6’ 24.10.2013, 18:08. Показов 2981. Ответов 1 Метки нет (Все метки) Дана непустая строка символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в строке:знаки препинания и цифры от ‘0’ до ‘6’ 0

Опции темы

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

Решение