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