<span>MS Windows 2003
<span>MS Windows Me</span>
<span>MacOS X 10.7
<span>Ubuntu 10.10
</span></span></span>А OS: <span>DR-DOS 7.0, <span>OS/2 Warp 3.0, <span>BeOS 5.1 слишком старые</span></span></span>
Задачу удобно решать с помощью кругов Эйлера (см. рис.).
K1+K2+K3+K4+K5+K6 = 1000
K2+K4 = 250
K4+K5+K6 = 200
K3+K5 = 500
K4 = 20
K5 = 10
K2+K3+K4+K5+K6 - ?
K1 - ?
K2+K3+K4+K5+K6 = (K2+K4)+(K4+K5+K6)+(K3+K5)-K4-K5 = 250+200+500-20-10 = 920
K1 = (K1+K2+K3+K4+K5+K6)-(K2+K3+K4+K5+K6) = 1000-920 = 80
В приложении...............................................(если я правильно поняла)))
Var b, k, t: integer;
begin
for b:=0 to 10 do
for k:=0 to 20 do
begin
t:=100-(b+k);
if(20*b+10*k+t=200) then
writeln('Быков ' ,b,' коров ' , k,' телят ' ,t);
end;
end.
Результат:
Быков 1 коров 9 телят 90
Полюбому ты эти вопросы взял из книжки, поэтому посмотри тему и ты найдешь свой ответ