Пусть а - множество букв, из которых составлено слово информатика, в - множество букв, из которых составлено слово автоматика.запишите множество а, в, а объедение в, а пересечение в​

a = {и, н, ф, о, р, м, а, т, к}

b = {а, в, т, о, м, и, к}

a ∪ b = {и, н, ф, о, р, м, а, т, к, в}

a ∩ b = {и, о, м, а, т, к}

Алгоритм содержит ошибку: необъявленную переменную d. фактически она вообще не нужна, потому что d=x и не меняется. выводится значение l, которое вычисляется по формуле l=30+kx, где k - количество выполнений тела цикла while. получаем уравнение 30 + k·x = 102 → k·x = 72. но 72 = 2 × 2 × 2 × 3 × 3 если значение х нечетное, то оно может быть или 3, или 3 × 3 = 9. в вопросе спрашивается о максимальном х, поэтому проверим, подходит ли х=9. в этом случае k = 72 / 9 = 8 значение k определяется условием выполнения цикла l ≤ m, где m = 456 - 5·x·k. при k= 8 получаем 102 ≤ 456 - 5×8×9; 102 ≤ 96 - ложно, но еще при k=7 получаем 30+7×9 ≤ 456-5×7×9; 93 ≤ 141 истинно. следовательно, x=9 подходит. ответ: 9

Var   a: array[0..9] of integer; { число повторений }   i,n,d,p: integer; begin   write('n = '); read(n);   for i: =0 to 9 do a[i]: =0; { обнулить счетчики }   p: =1;   for i: =2 to n do p: =p*i;   writeln(n,'! = ',p);   while p> 0 do begin       d: =p mod 10;       a[d]: =a[d]+1;       p: =p div 10       end;   writeln('количество повторений цифр в числе: ');   for i: =0 to 9 do       if a[i]> 0 then write(i,'-',a[i],' ');   writeln end. пример n = 9 9! = 362880 количество повторений цифр в числе: 0-1 2-1 3-1 6-1 8-2 второй вариант // pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var p: =2.to(n).aggregate(1,(a,b)-> a*b); // факториал   writeln(n,'! = ',p);   writeln('количество повторений цифр в числе: ');   foreach var i in       p.tostring.groupby(t-> t).select(t-> (t.key,t.(t-> t[0]) do       write(i[0],'-',i[1],' ');   writeln end.