Написать программу, которая формирует множество Y

[maxim1592]

Написать программу, которая формирует множество Y из символов персонального компьютера с точкой в конце, и выделяет из него подмножество Y1, представляющее собой цифры, входящие в Y. Определить мощность множества Y.

[ZX Spectrum-128]

Что-нибудь сами делали?

[maxim1592]

я даже суть задачи не понял...так что наработок нету =

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=261602
У вас же есть код, формирующий множество. Сами же и постили.

[maxim1592]

первую часть я понял, а вот в-ю (выделяет из него подмножество Y1, представляющее собой цифры, входящие в Y. Определить мощность множества Y.) и как определяется мощность???????????

var 
 w: set of char;
 K: char;
begin
{ Ввод символов в множество W }
w: = []; {Задаем пустое множество }
repeat
read (k);
w: =w+ [k]; {Добавляем новый символ в множество}
until k=’.’;
{Вывод различных символов, входящих в сформированное множество, выглядит так:}
for k: =#0 to #255 do
if k in w then write (k);
end.

[ZX Spectrum-128]

Мощность - это количество элементов во множестве. Определить например так

N:=0;
for k: =#0 to #255 do
 if k in w then 
   N:=n+1;

Вторая часть, не проверял

Y1:=[];
For k:='0' to '8' do
 If k in w then
   Y1:=y1+[k];

[maxim1592]

как это все в одну программу связать?

[ZX Spectrum-128]

{Написать программу, которая формирует множество Y из символов персонального
компьютера с точкой в конце, и выделяет из него подмножество Y1,
представляющее собой цифры, входящие в Y. Определить мощность множества Y.}


var
  y,y1: set of char;
  K: char;
  n:integer;
begin
  { Ввод символов в множество W }
  y:= []; {Задаем пустое множество }
  y1:= []; {Задаем пустое множество }
  while k<>'.' do
    begin
      read(k);
      y:=y+ [k]; {Добавляем новый символ в множество}
    end;
  y:=y-['.']; {Убираем точку}
  For k:='0' to '9' do
    If k in y then
      Y1:=y1+[k];

  {Вывод различных символов, входящих в сформированное множество, выглядит так:}
  for k:=#0 to #255 do
    if k in y1 then
      begin
        write (k);
        inc(n);
      end;
  Writeln;
  Writeln('Мощность множества = ',n);
end.