Question

СДЕЛАТЬ В ПАСКАЛЕ И КИНУТЬ ГОТОВЫЙ КОД (НЕ ФАЙЛ!)

У Николая есть а лимонов, b яблок и c груш. Он решил приготовить из них компот. По рецепту фрукты должны быть в соотношении a:b:c (1:2:4). Тобишь на 1 лимон 2 яблока и 4 груши. Надо определить суммарное кол-во лимонов яблок и груш из которых можно сварить компот по рецепту. Возможно что для компота будет использовано ни одного фрукта
Примеры:
ввод вывод
2 7
5
7

4 21
7
13

2 0
3
2

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
4 7 13
21