Количество вариантов считаем так:
На первого человечка можно надеть 3 шляпы,тогда на второго останутся 2 на выбор и 1 на последнего. Итого: 3*2*1=6 вариантов.
Теперь выпишем их по порядку
Обозначу для краткости Человечков буквами Ч1.Ч2,Ч3, а
шляпы A,B,C.
1)Ч1-A, Ч2-B, Ч3-C
2)Ч1-A, Ч2-C, Ч3-B
3)Ч1-B, Ч2-A, Ч3-C
4)Ч1-B, Ч2-C, Ч3-A
5)Ч1-C, Ч2-A, Ч3-B
6)Ч1-C, Ч2-B, Ч3-A
ГОТОВО ^_^
1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
Кбайт больше потому что 1