Помогите нарисовать блок схему.

[email protected] в категроии Информатика, вопрос открыт 07.07.2018 в 18:51

Var
M: Set Of Char;
Str: String;
c: Char;
i, n: Integer;
Begin
M:=[]; { M – пустое множество}
n:=0; {переменная, считающая количество различных букв в строке}
WriteLn (?Введите строку?);
ReadLn (Str); {ввод строки}
For i:=1 To Length (Str) Do M:=M+[Str[i]]; {формирование множества, содержащего все буквы, входящие в строку}
For c:= ?A? To ?Z? Do {подсчет количества элементов в множестве}
If (c In M) Then n:=n+1;
WriteLn (?Количество различных элементов в строке равно?, n)
End.