Задача о "Голодной зиме" Опции

[Ex1Le]

задача Голодная зима. Суточный рацион коровы составляет u кг сена, v; кг силоса и w; кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось s кг сена, t кг силоса и f кг комбикорма.. В стаде ежедневно погибает р% коров; ежедневно q% оставшегося сена сгни-вает; r% силоса разворовывается колхозниками; t% комбикорма распродает зав. фермой. Ко-гда нельзя будет кормить всех оставшихся коров по полному рациону? Какой из видов кор-мов кончится раньше других?

Код

program kolxo3;
uses crt;
var k,u,v,w,i,d: integer;
       p,q,r,z,x,y,g,s,t,f:real;
begin
      clrscr;
      writeln('vvedite ha4albhoe ctado';
     readln(k);
     writeln('vvedite ha4albhoe koli4ectvo cena,ciloca i kombikorma';
     readln(s,t,f);
     writeln('vvedite pau,bion cena,ciloca i kombikorma';
     readln(u,v,w);
     writeln('vvedite ckolbko pogibaet korov ezhednevno v proueu,entax';
     readln(p);
     writeln('vvedite ckolbko ybivaet cena,ciloca i kombikorma ezhednevno v    proueu,entax';
     readln(q,r,g);
    d:=0;
repeat
   s:=s-(k-k*(p/100))*u-s*(q/100);
   t:=t-(k-k*(p/100))*v-t*(r/100);
   f:=f-(k-k*(p/100))*w-f*(g/100);
   d:=d+1;
until (s<=u) and (t<=v) and (f<=w);
   writeln('kol-vo dnei po polnomy rau,iony ',d);
   readln;
end.

почему он мне все время пишет что 1 день ?? даже когда явно и одного дня не будет..... желательно чтобы вы написали при каких значениях всех переменных у вас получилось.....

[volvo]

почему он мне все время пишет что 1 день ?? даже когда явно и одного дня не будет...

А потому, что у тебя цикл с ПОСТУСЛОВИЕМ, и увеличение количества дней происходит ДО того, как проверяется условие. Классическая ошибка. Используй While и все будет в порядке...

[Ex1Le]

:molitva: чувствую себя полным идиотом