У Айбара есть а мешков цемента, b мешков песка и с мешков щебня. Он хочет сделать из них бетон. По рецепту они долины быть в соотношении 1 : 2: 4, то есть на каждый млешкж цемента в бетоне должно быть ровно 2 мешка песка и ровно 4 мека шебня При этом мешки нужно использовать целиком (Айбар не хочет, чтобы оставались открытые непустые мешки). Определите максимаЛьное суммарное количество мешкое цемента, песка и щебня, из которых можно сделать бетон по рецепту. Возможн ситуация, когда Айбар не сможет для приготовпения бетона использовать ни одного мешка, таком случае выведите 0. Входные данные В первой строке спедует целое положительное число а (1а 5 1000)-количество мешков цемента. Во второй строке следует целое положительное чиспо 6 (1<6 1000)-количество мешков песка. В третьей строке следует целое положительное число с (1 <e< 1000)- количество мешков щебня. Выходные данные Выведите максимальное суммарное количество мешков цемента, песка и щебня, из которых можно сделать бетон по рецепту.
Префиксная форма записи заключается в том, что сначала записывается операция, потом префиксная запись её первого аргумента, потом второго аргумента. Это соответствует обходу дерева сверху вниз и слева направо, записываем, что сверху, потом идем вниз. Вот что получится в итоге:
а) * + a b + c * 2 d
б) + * - * 2 a * 3 d c * 2 b
в) - * 3 a * + * 2 b c d
В постфиксной записи, наоборот, записываются сначала аргументы, потом операция. Это соответствует обходу дерева снизу-вверх.
а) a b + c 2 d * + *
б) 2 a * 3 d * - c * 2 b * +
в) 3 a * 2 b * c + d * -
Var a:array [0..2,0..2] of integer;
Position:array[0..1,0..1] of byte;
i,j,max,min:integer;
Procedure print(a:array of array of integer);
Begin
For i:integer:=low(a) to high(a) do begin
For j:integer:=low(a[i]) to high (a[i]) do
Write(a[i,j],' ');
Writeln;
End;
End;
Begin
Max:=integer.minvalue;
min:=integer.maxvalue;
for i:=low(a) to high(a) do
For j:=low(a[i]) to high(a[i]) do
A[i,j]:=random(10);
Print(a);
for i:=low(a) to high(a) do
For j:=low(a[i]) to high(a[i]) do
Begin
If (a[i,j]<min) then begin
Min:=a[i,j]; position [0,0]:=i; position [0,1]:=j;
End;
If (a[i,j]>max) then begin
Max:=a[i,j]; position [1,0]:=i; position [1,1]:=j;
End;
End;
Swap(a[position[0,0], position [0,1]],a[position [1,0]],a[position [1,1]]);
Print(a);
End.