Иван и саша вырезали из белой бумаги четыре ёлочки разных размеров.сколькими можно покрасить вырезные ёлочки в серебристый и зелёный цвета, если количество краски не ограничено , а каждую ёлочку можно красить только в один цвет. !
Может быть, так: uses graphABC; Begin setfontcolor(clRed); writeln('Белеет парус одинокой'); setfontcolor(clBlue); writeln('В тумане моря голубом!..'); setfontcolor(clDarkOrchid); writeln('Что ищет он в стране далекой?'); setfontcolor(clDeepSkyBlue); writeln('Что кинул он в краю родном?..'); setfontcolor(clDeepPink); writeln('Играют волны - ветер свищет,'); setfontcolor(clMagenta); writeln('И мачта гнётся и скрыпит...'); setfontcolor(clDarkGreen); writeln('Увы! он счастия не ищет'); setfontcolor(clLime); writeln('И не от счастия бежит!'); setfontcolor(clBrown); writeln('Под ним струя светлей лазури,'); setfontcolor(clIndigo); writeln('Над ним луч солнца золотой...') End.
Var i,n,m: integer; a: set of 0..9; b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9]; c: array[1..200] of integer; begin write(' N = '); readln(n); Randomize; for i:=1 to n do begin c[i]:=Random(255); write(c[i],' '); end; writeln; a:=[]; for i:=1 to n do begin m:=c[i]; while (m>0) do begin a:=a+[(m mod 10)]; m:=m div 10; end; end; b:=b-a; if b<>[] then begin write('в записи чисел массива не содержатся цифры : '); foreach i in b do write(i,' '); end else writeln('встречаются все цифры'); end.
