Пытаюсь самостоятельно изучать Паскаль. Возникли вопросы.

[galaid]

я не совсем понял условие, но я бы так сделал (как понял):

расмотрел три варианта
1)расмотрел бы если максимальное кол-во было быков
2)расмотрел бы если максимальное кол-во было коров
3)расмотрел бы если максимальное кол-во было телёнков

но тут как я понял несколько вариантов может быть

[Serge_Bliznykov]

Студент заочник

{
Составить алгоритм решения задачи: сколько можно купить быков, коров и телят,
платя за быка 10 руб., за корову - 5 руб., а за теленка - 0,5 руб., если
на 100 руб. надо купить 100 голов скота?}
const
  AllSum = 100;
var b,k,t : integer;
begin
  for b:=0 to (AllSum div 10) do
    for k:=0 to ((AllSum - b*10) div 5) do 
    begin
      t := trunc( (AllSum - b*10 - k*5) / 0.5 );
      if ((b+k+t) = 100) and ( (b*10+k*5+t*0.5)=AllSum) then
        WriteLn('Быков ',b:1,' коров: ',k:1,' телят: ',t:1)
    end;
end.

p.s. кстати, решение нашлось только одно :-)