Цитата:
Сообщение от icewind
Дана строка символов. Определить количество различных символов, которые являются буквами или цифрами, вывести их на печать, используя множества.
|
Код:
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.