Как решить ? иван и саша вырезали из белой бумаги четыре ёлочки разных размеров. сколькими способами можно покрасить вырезанные ёлочки в серебристый и зелёный цвета, если количество краски не ограничено, а каждую ёлочку можно красить только в один цвет? ! 11 и и оценку пять!

  два цвета  н по идее 16 (2^4 где 2 - количество цветов, а 4 - количество елок)

Вариант 1 begin  var a: =arrrandom(20,1,100);   a.println;   var tri: =a.where(x-> (x mod 10)=3);   writeln(tri.max); end.ввод -     9 13 22 49 68 67 98 11 28 12 69 73 20 91 63 69 81 93 99 66вывод - 93 вариант 2 const  m = 20; var  a, b: array [1..m] of integer;     i, max_num: integer; begin  for i : = 1 to m do      read(a[i]);     for i : = 1 to m do      if (a[i] mod 10 = 3) then begin      b[i] : = a[i];     end;   max_num : = b[1];   for i : = 2 to m do    if (b[i] > max_num) then        max_num : = b[i];   writeln('max = ', max_num); end.

1. современное решение, когда можно решить "в одну строку" // pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   writeln('s=',readseqinteger(3).select(n-> n.tostring       .where(d-> pos(d,'13579')> (c-> c)       .select(c-> c.todigit).sum) end. пример 252 337 105 s=24 2. а примерно вот так учат писать в школе - долго и длинно (да и не особо понятно) var   m,i,j,s,d: integer; begin   s: =0;   for i: =1 to 3 do begin       read(m);       for j: =1 to 3 do begin           d: =m mod 10;           if d mod 2< > 0 then s: =s+d;           m: =m div 10           end       end;   writeln('s=',s) end.