Есть ответ 👍

Иллюзионист в цирке показывает фокус. У него имеется 50 монет, он раскладывает их в несколько кошельков. После этого зритель из зала называет любое число от 1 до 50, и фокусник отдаёт ему один или несколько кошельков, содержащих в точности названное зрителем количество монет. Как фокуснику нужно разложить монеты по кошелькам, чтобы он мог отдать любое указанное число монет от 1 до 50?

Укажите в ответе количество монет в каждом кошельке в виде последовательности чисел, разделённых пробелами. Сумма всех чисел в ответе должна быть равна 50. Чем меньше кошельков вы используете в своём решении, тем больше вы получите.

152
236
Посмотреть ответы 1

Ответы на вопрос:

varich83
4,4(75 оценок)

const N = 20;

const MAX = 70;

const MIN = 20;

var A: array [1..N] of integer;

var i,c1,c2: integer;

begin

randomize();

c1:=-1;

c2:=-1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 write(A[i],' ');

 if (A[i] mod 2 = 0) then  

   if (c1=-1) or (A[i]<A[c1]) then c1:=i;

 if (A[i] mod 2 <> 0) then  

   if (c2=-1) or (A[i]<A[c2]) then c2:=i;

 end;

writeln();

if (c1<>-1) then writeln('Минимальное четное: ',A[c1]);

if (c2<>-1) then writeln('Минимальное нечетное: ',A[c2]);

end.

Популярно: Информатика