Paskal - задача про коров ))

[TuuuZ]

на 100 рублей нужно купить 100 голов
бык стоит 10 руб
корова стоит 5 руб
теленок стоит 0,5 руб

я в заблуждениях как ее написать

[Deamonig]

щас вроде придумал метод решения, щас опробую если все норм то напишу его

[Serge_Bliznykov]

вот, если бы поискали, нашли бы на форуме

{
Составить алгоритм решения задачи: сколько можно купить быков, коров и телят,
платя за быка 10 руб., за корову - 5 руб., а за теленка - 0,5 руб., если
на 100 руб. надо купить 100 голов скота?}
const
  AllSum = 100;
var b,k,t : integer;
begin
  for b:=0 to (AllSum div 10)+1 do
    for k:=0 to ((AllSum - b*10) div 5)+1 do
    begin
      t := trunc( (AllSum - b*10 - k*5) / 0.5 );
      if ((b+k+t) = 100) and ( (b*10+k*5+t*0.5)=AllSum) then
        WriteLn('Быков ',b:1,' коров: ',k:1,' телят: ',t:1)
    end;
end.

[Deamonig]

вот примерно так, правда немного по ламмерски, но главное что рабоает

program  sss;
const syma=100;
const n=100;
const buk=10;
const tela=5;
const telenok=0.5;
var
a:array[1..1000000] of real;
i,j,k,c:longint;
s:byte;
begin

for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
begin
c:=c+1;
a[c]:=buk*(n-i+1)+tela*(n-j+1)+telenok*(n-k+1);
if (a[c]=syma) and ((n-i+1+n-j+1+n-k+1)=syma) then
 write('bikov-',n-i+1,' korov-',n-j+1,' telenkov-',n-k+1);
end;
 readln;
end.

[Андрей.12]

у нас такая задачка была в 9 классе. На школьной олимпиаде.думаю надо задуматься если вы студент

[NaNamIT]

Интересная задача, только тут не описали ее пдробно, тут можно посмотреть решение задачки с подробным описание каждого действия (ЯП Pascal)
http://solution.3dn.ru/publ/zadachi/zadacha/1-1-0-9