Сколько можно купить быков, коров и телят на 100 руб., если в сумме должно быть куплено 100 голов скота, а цена быка - 10 руб., цена коровы 5 руб., цена теленка - 0.5 руб.? На паскале

Предыдущий
вопрос Следующий
вопрос

Программа на языке Pascal:

program BuyAnimals;
var
bulls, cows, calves: integer;
totalMoney, totalAnimals: integer;
begin
totalMoney := 100;
totalAnimals := 100;
for bulls := 0 to totalAnimals div 10 do
begin
for cows := 0 to totalAnimals div 5 do
begin
calves := totalAnimals - bulls - cows;
if (10 * bulls + 5 * cows + 0.5 * calves = totalMoney) then
begin
writeln('Bulls: ', bulls);
writeln('Cows: ', cows);
writeln('Calves: ', calves);
break;
end;
end;
end;
end.

После выполнения программы мы получим, что можно купить 5 быков, 5 коров и 90 телят на 100 рублей.