Ну примерно так:…43;4;29;104
Файл "main.cpp" - первое задание, "main50.cpp" - второе. Для формирования чисел используется корейский рандом. Ещё добавлю, что удалить числа из массива нельзя, а можно только создать новый.
X - количество монет у I
y - количество монет у II
1-ая партия: I X+Y/2 ; II Y-Y/2=У/2
2-ая партия: I (X+Y/2)/2 II Y/2+(X+Y/2)/2=Y*3/4+X/2
3-я партия: I (X+Y/2)/2+1/2(Y*3/4+X/2)=X*3/4+Y* 5/8
II Y*3/8+X/4
Cистема:
X*3/4+Y*5/8=28
(X/4+Y*3/8)=12 Решение этой системы: Х=24 Y=16
Ответ 24 монеты у первого; 16 монет у второго
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.