Написать программку в Pascal. Древная задачка. Сколько можно покупать быков, скотин

Ответ:

Программка Рафа, на его заслуги не претендую, просто немножко подкорректирую

program raf105;

const s=100;

var b,k,b1,t1,k1,t : integer;

Exit:boolean;

begin

Exit:=false;

for b:=0 to (s div 5) do

for k:=0 to ((s - b*5) div 3) do

begin

t := (s - b*5 - k*3) *2;

if ((b+k+t) = 100) and ( (b*5+k*3+t*0.5)=s)

then begin

B1:=b;

T1:=t;

K1:=k;

Exit:=true;

Break;

end;

If exit then begin

writeln('Быков: ',b1);

writeln('Скотин: ',k1);

writeln('Телят: ',t1);

Exit:=false;

End;

end;

end.

История Вопроса

24.05.2019

15:29 raf1O5 поправил решение

15:13 nelle987 выслала на исправление решение юзеру dim4942

15:10 nelle987 выслала на исправление решение юзеру raf1O5

23.05.2019

20:45 kookbak отметил решение юзера raf1O5 как лучшее

19:37 raf1O5 изменил решение

19:03 dim4942 изменил решение

19:02 dim4942 добавил решение

18:14 raf1O5 изменил решение

17:39 raf1O5 добавил решение

22.05.2019

21:11 kookbak добавил задачку

Подробнее - на Znanija.com - znanija.com/task/32529346readmore

program raf105;

const

s = 100;

var b,k,t: integer;

begin

writeln('Все возможные решения задачки:');

for b:=0 to (s div 5)+1 do

 for k:=0 to ((s - b*5) div 3)+1 do

 begin

   t := trunc( (s - b*5 - k*3) / 0.5 );

   if ((b+k+t) = 100) and ( (b*5+k*3+t*0.5)=s)

     then begin

       writeln;

       writeln('Быков: ',b);

       writeln('Скотин: ',k);

       writeln('Телят: ',t);

     end;

 end;

end.

PascalABC 3.4.2