5. в ящике лежат 70 шаров, отличающихся лишь цветом: 20 красных, 20 синих, 20 жёлтых, остальные чёрные и белые. a. какое наименьшее число шаров надо взять, из черного ящика, чтобы среди них было не меньше 10 шаров одного цвета? b. какое наименьшее число шаров надо взять, из черного ящика, чтобы среди них было не меньше 20 шаров одного цвета? c. какое наименьшее число шаров надо взять, из черного ящика, чтобы среди них было не меньше 30 шаров одного цвета?

А) 38  (чёрных и белых по десять достать не возможно, их всего вместе 10 (70-20-20-20). остальных надо взять 9+9+10= 28, чтобы среди них точно оказалось 10 шаров одного цвета. итого 28+10=38

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.