понедельник, октября 10

Сельское хозяйство

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


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


1 комментарий:

Наталия Яникова комментирует...

У гусей и кроликов вместе 64 лапы. Сколько могло быть кроликов и гусей (указать все сочетания, которые возможны)?

program selskoe_hozyaistvo2;
var g, k: integer;
begin
for g:=0 to 32 do
for k:=0 to 16 do
if g*2+k*4=64 then writeln ('гуси: ',g,' кролики: ', k)
end.