Технический форум - Задача по Паскалю на множества

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача по Паскалю на множества (http://www.tehnari.ru/f41/t73426/)

Задача по Паскалю на множества

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

Цитата:

Сообщение от icewind (Сообщение 733727)

Код:

Const

 Smb:Set of Char=['A'..'Z']+['a'..'z']+['0'..'9'];

Var

 S:String;

 D:Set of Char;

 i,N:Byte;

Begin

 Writeln('Enter the string:');

 Readln(S);

 D:=[];

 N:=0;

 For i:=1 to Length(S) do

  If (S[i] in Smb) and Not(S[i] in D) then

   begin

    Inc(N);

    D:=D+[S[i]];

    Write(S[i]+' ');

   end;

 Writeln;

 Writeln(N,' symbols');

 Readln;

End.