Составить программу решения задачи: сколько можно купить быков, коров и телят, платя за быка 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.
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.
Отправить комментарий