Создать множество элементами которого являются встречающиеся в строке знаки препинания и глухие согласные

@MegiFox · Регистрация: 20.03.2018

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

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

@ZX Spectrum-128 · 20.03.2018, 17:04

Pascal

const
  m = ['к', 'п', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', '.', '.', '?', '!'];
 
var
  s: string;
  i: integer;
  a: set of char;
 
begin
  readln(s);
  a := [];
  for i := 1 to length(s) do
    if s[i] in m then
      a := a + [s[i]];
  write(a);    
end.

@Hitoku · 20.03.2018, 17:16

Pascal

const m = ['к', 'п', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', '.', '.', '?', '!'];
begin
  writeln(ReadlnString.Where(c -> m.Contains(c)).Distinct);
end.

Создать множество элементами которого являются встречающиеся в строке знаки препинания и глухие согласные

Решение

Решение

@MegiFox 0 / 0 / 0 Регистрация: 20.03.2018 Сообщений: 3
		1
	Создать множество элементами которого являются встречающиеся в строке знаки препинания и глухие согласные 20.03.2018, 15:38. Показов 1154. Ответов 2 Метки нет (Все метки) Дана непустая строка символов.Требуется построить и напечатать множество,элементами которого являются встречающиеся в строке знаки препинания и глухие согласные. 0

	20.03.2018, 17:16