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

Question

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

Answer 1

program z1;
uses crt;
var a,b,c:integer;
 begin
for a:= 1 to 10 do
for b:=1 to 20 do
for c:=1 to 200 do                                                             с:= 100-(a+b);                    
begin
if (a+b+c=100)and (a*10+b*5+c*0.5=100) then             if  (a*10+b*5+c*0.5=100)
writeln (a:6,b:6,c:6);
end;
end.