Можно покрасить 1)все серебряные 2)все зелёные 3)1 и 2 серебряные, а 3 и 4 зелёные 4)1 и 2 зелёные, а 3 и 4 серебряные 5)1 и 3 серебряные, а 2 и 4 зелёные 6)1 и 3 зелёные, а 2 и 4 серебряные 7)1 и 4 серебряные, а 2 и 3 зелёные 8)1 и 4 зелёные, а 2 и 3 серебряные 9)1 серебряный, а 2,3 и 4 зелёные 10)1 зелёный, а 2,3 и 4 серебряные 11)2 серебряный, а 1,3 и 4 зелёные 12)2 зелёный, а 1,3 и 4 серебряные 13)3 серебряный, а 1,2 и 4 зелёные 14)3 зелёный, а 1,2 и 4 серебряные 15)4 серебряный, а 1,2 и 3 зелёные 16)4 зелёный, а 1,2 и 3 серебряные
1 var i, minus, plus, zero: integer; t: array [1..15] of integer; begin minus := 0; plus := 0; zero := 0; for i := 1 to 15 do begin readln(t[i]); if t[i] > 0 then plus := plus + 1; else if t[i] < 0 then minus := minus + 1; else zero := zero + 1; end; end.
2 var stroke: string; begin readln(stroke); if length(stroke) mod 2 = 0 then writeln('Четно'); else writeln('Нечетно'); end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4 var max, min, i: integer; A: array[1..20] of integer; begin min := a[1]; max := a[1]; for i := 2 to 15 do begin if a[i] > max then max := a[i]; if a[i] < min then min := a[i]; end; end.
Для объектов с одинаковыми наборами свойств
Объяснение: