Регистрация
hazret
16.12.2022 20:07
Информатика
Есть ответ 👍

Как преобразовать данный алгоритм с рекурсии ( в 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.

206
494
Посмотреть ответы 2

Ответы на вопрос:

anulka2
anulka2
4,7(91 оценок)
Function simbols(st: string): set of char; var  s: string; n,i: integer; nc: set of char; begin nc: =[]; n: =pos(' ',st); if n> 0 then begin s: =copy(st,1,n-1); delete(st,1,n); end else   begin   s: =st;   st: =''; end;     for i: =1 to length(s) do  nc: =nc+[s[i]]; if length(st)> 0 then result: =nc*simbols(st)   else result: =nc; end;
dashani7562
dashani7562
4,6(32 оценок)

1. 44

2. b=8

Объяснение:

1. не (x>44)=> x<=44

не(в числе  x нет одинаковых цифр)=> в числе есть одинаковые цифры

Если нужно указать минимальное, то это 44.

2.( ((17+b)*2)+b)*2)+b=124

((34+2b+b)*2)+b=124

68+6b+b=124

7b=124-68

b=56/7=8

Популярно: Информатика