Вложенные циклы. Организация перебора

1. Вложенные циклы

Организация перебора

2. Старинная задача

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

3.

b – количество быков (по 10 рублей)
b=0,10
k – количество коров (по 5 рублей)
k=0,20
t – количество телят (по 0.5 рублей)
t=0,200
b+k+t=100
b*10+k*5+t*0.5=100
b+k+t=100
b*20+k*10+t=200

4.

b=0,10
k=0,20
t=0,200
b+k+t=100
b*20+k*10+t=200
For b:=0 to 10 do …..

5.

uses crt;
var b,k,t:integer;
begin
clrscr;
for b:=0 to 10 do
for k:=0 to 20 do
for t:= 0 to 200 do
if (b+k+t=100) and (20*b+10*k+t=200)
then writeln(b,k:4,t:4);
readkey;
end.

6. Сокращение перебора

uses crt;
var b,k,t:integer;
begin
clrscr;
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:4, t:4);
end;
readkey;
end.