Как преобразовать данный алгоритм с рекурсии ( в pascal abc) слова в тексте разделены пробелами. какие символы есть в каждом слове? решение: function simbols(st: string): set of char; var s: string; n: integer; mc: set of char; begin mc: =[]; n: =pos(' ',st); if n> 0 then begin s: =copy(st,1,n-1); delete(st,1,n); result: =simbols(st); end else s: =st; foreach var c: char in s do mc: =mc+[c]; if result=[] then result: =mc else if mc< > [] then result: =result*mc; end; var s: string; begin readln(s); writeln(simbols(s)); end.

Karina5252    2   11.07.2019 13:10    0