Question

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

Answer 1

program BuyingLivestock;
var   Bulls, Cows, Calves: integer;
begin   writeln('Введите количество денег (в рублях): ');   readln(Calves);
     for Bulls := 1 to 100 do     for Cows := 1 to 100 - Bulls do     begin       Calves := 100 - Bulls - Cows;       if Bulls * 10 + Cows * 5 + Calves * 0.5 = 100 then         writeln('Быков: ', Bulls, ', Коров: ', Cows, ', Телят: ', Calves);     end;
     readln; end.