Var h,h1,m,m1,k,k1,b:integer; begin write('h, h1: '); readln(h,h1); write('m, m1: '); readln(m,m1); write('k, k1: '); readln(k,k1); if h div h1 < m div m1 then b:=h div h1 else b:=m div m1; if k div k1 < b then b:=k div k1; writeln('b = ',b); end.
Пример: h, h1: 1000 100 m, m1: 600 50 k, k1: 500 50 b = 10
С определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.
Var h,h1,m,m1,k,k1,b:integer; begin write('h, h1: '); readln(h,h1); write('m, m1: '); readln(m,m1); write('k, k1: '); readln(k,k1); if h div h1 < m div m1 then b:=h div h1 else b:=m div m1; if k div k1 < b then b:=k div k1; writeln('b = ',b); end.
Пример: h, h1: 1000 100 m, m1: 600 50 k, k1: 500 50 b = 10
С определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.
Привет!
Решение на фотографии.
Удачи!