На завод по сбору ноутбуков поставляют комплектующие в том числе поставляют корпуса четырех различных цветов(черного, серебристого, коричневого, и белого) и клавиатурные модули таких же цветов при сборке ноутбука цвет корпуса не обязательно должен соответствовать цвету клавиатуры.сколько различных цветовых решений ноутбуков могут получить на заводе ? а)4 б)8 в)12 г)16

16 различных цветовых решений

Ответ

Var n,a,k: integer; p,s: real; begin write('n = '); readln(n); k: =0; for n: = 1 to n-1 do       begin       a: =n;       s: =0;       while a> 0 do             begin             s: =s+(a mod 10);             a: =a div 10;             end;       a: =n;       p: =1;       while a> 0 do             begin             p: =p*(a mod 10);             a: =a div 10;             end;       if s=p then             begin             writeln(n);             k: =k+1;             end;       end; if k=0 then writeln('нет'); end.

// pascalabc.net 3.0, сборка 1128 procedure allmake(p: array of integer; var avg: real); begin   avg: =p.average;   for var i: =0 to p.length-1 do       if p[i]< avg then p[i]*=10 end; begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,1,50);   writeln('исходный массив'); a.println;   var av: real;   allmake(a,av);   writeln('среднее арифметическое равно ',av);   writeln('результирующий массив'); a.println;   writealltext('out.txt',a.joinintostring) end. тестовое решение: количество элементов в массиве: 15 исходный массив 34 50 49 50 17 21 13 25 11 43 47 45 30 11 1 среднее арифметическое равно 29.8 результирующий массив 34 50 49 50 170 210 130 250 110 43 47 45 30 110 10 файл out.txt дан во вложении.