пятница, апреля 23

"Счастливый фермер"

Составить алгоритм решения задачи: сколько можно купить быков, коров и телят, платя за быка 10 руб., за корову - 5 руб., а за телёнка - 0,5 руб., если на 100 руб. надо купить 100 голов скота.

program Derevnya;
var b, k, t: integer;
begin
for b:=0 to 10 do
for k:=0 to 20 do
for t:=0 to 200 do
if (10*b+5*k+0.5*t=100) and (b+k+t=100)
then writeln ('кол-во быков: ',b,', кол-во коров: ', k, ', кол-во телят: ', t)
end.

Любопытно, что в итоге получаем один-единственный вариант для осуществления покупки.

Комментариев нет: