var b, k, t: integer;
begin for b:=0 to 10 do for k:=0 to 20 do
begin
if(20*b+10*k+t=200) then
t:=100-(b+k); writeln('Быков',b, коров', k,' телят ' ,t); end;
end.
Значить результат таков:
Быков 1,коров 9, телят 90
var b, k, t: integer;
begin for b:=0 to 10 do for k:=0 to 20 do
begin
if(20*b+10*k+t=200) then
t:=100-(b+k); writeln('Быков',b, коров', k,' телят ' ,t); end;
end.
Значить результат таков:
Быков 1,коров 9, телят 90