Question

Задача 1. Компот (20 баллов) Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт У Николая есть a лимонов, b яблок и c груш. Он решил приготовить из них компот. По рецепту фрукты должны быть в соотношении 1 : 2 : 4, то есть на каж- дый лимон в компоте должно быть ровно два яблока и ровно 4 груши. При этом фрукты нельзя измельчать, ломать или разрезать, поэтому в компот обязательно должны попасть целиком фрукты — лимоны, яблоки и груши. Перед вами стоит задача определить максимальное суммарное количество ли- монов, яблок и груш, из которых можно сварить компот по рецепту. Возможна ситуация, когда Николай не сможет для приготовления компота использовать ни одного фрукта, в таком случае выведите 0. Формат входных данных В первой строке следует целое положительное число a (1 ⩽ a ⩽ 1000) — коли- чество лимонов, которые есть у Николая. Во второй строке следует целое положительное число b (1 ⩽ b ⩽ 1000) — коли- чество яблок, которые есть у Николая. В третьей строке следует целое положительное число c (1 ⩽ c ⩽ 1000) — коли- чество груш, которые есть у Николая. Формат выходных данных Выведите максимальное суммарное количество лимонов, яблок и груш, из ко- торых можно сварить компот по рецепту. Примеры стандартный ввод стандартный вывод 2 5 7 7 4 7 13 21 2 3 2 0 Замечание В первом примере Николай может использовать для приготовления компота 1 лимон, 2 яблока и 4 груши, поэтому ответ 1 + 2 + 4 = 7. Во втором примере Николай может использовать для приготовления компота 3 лимона, 6 яблок и 12 груш, поэтому ответ 3 + 6 + 12 = 21. В третьей примере Николаю не хватит груш, чтобы приготовить сколько-нибудь компота, поэтому ответ 0.

Answer 1

Var a,b,c,d,min,k:integer;
begin
writeln('a, b, c');
readln(a,b,c);
if 4*a<2*b
 then begin min:=4*a; d:=a; end
 else begin min:=2*b; d:=b div 2; end;
if c<min then begin min:=c; d:=c div 4; end;
k:=d+2*d+4*d;
writeln(k);
end.

Пример:
a, b, c
2 5 7
7