Натолкните на мысль

[Rebelition]

Задача с виду легкая, но я не понимаю, как ее решить. Есть 100 рублей, на эту сумму нужно купить 100 ручек. Первая категория ручек стоит 0,5р, вторая - 7,5, третья - 9,5. Обязательно присутствие ручек всех категорий. Из своих размышлений мне удалось составить только систему из двух уравнений). Направте пожалуйста на верный путь.

[саша40]

О рациональных уравнения слыхали?

[Stilet]

Я не слышал, но сделал бы так по быстрячку:

const n=100;r=100;
var q,w,e:integer;
begin
 q:=1;w:=1;e:=1;
 while (q*0.5+w*7.5+e*9.5)<100 do begin
   if (q*0.5+w*7.5+(e+1)*9.5)<=100 then inc(e) else
   if (q*0.5+(w+1)*7.5+e*9.5)<=100 then inc(w) else
   if ((q+1)*0.5+w*7.5+e*9.5)<=100 then inc(q) else
 end;
 write(q:10,w:10,e:10);readln;
end.

[Rebelition]

Сообщение от Stilet

Я не слышал, но сделал бы так по быстрячку:

Я так же как и вы по быстрому написал такое же решение, а потом хорошо почитав условия понял, что ручек нужно купить именно сто. А программа покупает 24). В этом то и проблема.

[Serge_Bliznykov]

ну так измените программу, чтобы она "покупала" столько, сколько Вам нужно:

var i,j,k : integer;
begin
  for i:=1 to trunc(100/0.5)+1 do
    for j:=1 to trunc(100-i*0.5/7.5)+1 do
      for k:=1 to trunc(100-(i*0.5+j*7.5)/9.5)+1 do
        if ((i*0.5 + j*7.5 + k*9.5) = 100)
             and ((i+j+k)=100) then
          WriteLn(i:5,j:5, k:5);

  WriteLn('Done');
  readln   
end.

[саша40]

Сообщение от Rebelition

Я так же как и вы по быстрому написал такое же решение, а потом хорошо почитав условия понял, что ручек нужно купить именно сто. А программа покупает 24). В этом то и проблема.

потому что она так считает

[Serge_Bliznykov]

94 ручки по 0.5 руб.
2 ручки по 7.5 руб.
4 ручки по 9.5 руб.
----------------
Итого: 100 ручек на сумму 100 рублей