Сформировать и вывести на экран множество из n символов латинского алфавита

Категория: Delphi/Pascal
2012-03-25 16:20:00

Если вводимая буква уже есть в множестве, выдать соответствующее сообщение.

code: #pascal
Program Mn_8;
Const  N=20;
Var
s : set Of Char;
 a : Char;
 i : Integer;
Begin
s := [];
 For i:=1 To N Do
  Begin
   Writeln ('ўўҐ¤ЁвҐ 20 ЎгЄў « вЁ­бЄ®Ј®  «д ўЁв ');
   Readln(a);
   If a In s then
     Writeln('ЎгЄў  ',a,' 㦥 Ґбвм')
   Else
     s:=s+[a];
 End;
 Writeln('ЎгЄўл, ўе®¤пйЁҐ ў ¬­®¦Ґбвў®');
 For a:='A' To 'z' Do
   If a In S Then
     Write(a:2);
readln;
End.
Поделиться:

Похожие статьи:

теги: студенты, символ, множество