Предмет: Информатика, автор: Marbin101

Определить сколько бутербродов можно сделать. Если выдается :
H - общий вес хлеба
H1 - хлеб на один бутерброд
M - общий вес масла
M1 - вес масла на один бутерброд
K - общий вес колбасы
K1 - вес колбасы на один бутерброд
B - общее количество бутербродов
Например На бутерброд
H- 1000 H1 - 100
M- 600 M1 - 50
K - 500 K- 50
B - 10
H - 0
M - 100
K - 0

Ответы

Автор ответа: petyaGavrikov
1
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

С помощью h div h1 (m div m1, k div k1) определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.

Marbin101: объясни что ты тут делал а то немного не понимаю 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;
Marbin101: и да я забыл программа сама должна высчитать хлеб на 1 бутерброд вес масла на 1 бутер и колбасы на 1 бутер
petyaGavrikov: С помощью h div h1 (m div m1, k div k1) определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.
Похожие вопросы
Предмет: Қазақ тiлi, автор: aidosali1512
0 §6. Туңғыш олимпиада чемпионы атанған қазақ 1. Мәтінді оқып, кай стильде (ауызекі стиль, ресми стиль) жазылга- нын ажыратындар. iшк ест Жаксылық Үшкемпіров 15 жыл- дан аса женіл салмакта (48 келі) алты алаштын кез куанышы болды. Ел на- мысын колдан бермей, казактын кай- сар мiнезін танытты. Алдымен, бүкiл Кеңес Одағынын балуандарын ұтты. Табаны күректей 15 жыл бойы тек бір салмақта ғана күресудiн киындығын боз кілемде бақ сынағандар біледі. Оған екiнiн бiрiнiң төзiмi жетпейді. Жаксылык 1980 жылы Еуропа чемпионатының күміс жүлдегері атанды. Одан соң Мәскеу олимпиадасының чемпионы! Ка- зак - казак болғалы олимпиадада тұңғыш алтынга кол жет- кiздi. Ол - грек-рим күрес мәртебесін тасытқан, олимпиада жекпе-жегінде олжа салған алтын медаль алып, ултынын тұңғыш казак. Іле-шала, 981 жы, әлем чемпионы атағын M өздік өзгелік ырықсыз етіс табу!!!!!!!!!!!!!!!!!!!!!!!!​
Предмет: Биология, автор: Nikitapro30947