Проверить, является ли введенные символы элементом множества

@Sanchezzz · Регистрация: 20.09.2012

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

Дано множество малых латинских букв L.
Проверить, является ли введенные символы элементом множества. Если нет, добавить их в множество. Вывести на экран исходное и полученное множества.

Kodzaev · 08.07.2013, 22:07

Pascal

Var
  L: Set of Char;
  c: Char;
  i,n: Byte;
BEGIN
L:=['a'..'z'];
Writeln('Исходное множество:');
For c:='a' to 'z' do
If c in L Then Write(c,' ');
Writeln;
Write('Сколько симолов ввести? ');
Readln(n);
Writeln('Введите символы: ');
For i:=1 to n do
begin
  Readln(c);
  If not (c in L) Then
  begin
    Writeln('Символ ',c,' не входит в множество L. Добавлен в множество');
    Include(L,c);
  end;
end;
Writeln('Полученное множество:');
For i:=0 to 255 do
If Chr(i) in L Then Write(Chr(i),' ');
END.

@Sanchezzz 1 / 1 / 0 Регистрация: 20.09.2012 Сообщений: 34
		1
	Проверить, является ли введенные символы элементом множества 08.07.2013, 21:49. Показов 3040. Ответов 1 Метки нет (Все метки) Дано множество малых латинских букв L. Проверить, является ли введенные символы элементом множества. Если нет, добавить их в множество. Вывести на экран исходное и полученное множества. 0

	08.07.2013, 22:07

Проверить, является ли введенные символы элементом множества

Решение