Задача на операторы цыклу

[victrix]

Составить алгоритм решения задачи: сколько можно купить ваз, салфеток и цветов, платя за вазу 10р., за салфетку-5р., а за цветок – 0,5р., если на 100р. надо купить 100 предметов.

[lamer_1]

const count=100;
      money=100;
var v,s,c:integer;
begin
for v:=1 to 10 do 
for s:=1 to 20 do 
for c:=1 to 200 do 
if (v*10+s*5+c*0.5=money)and(v+s+c=count) then 
writeln('Ваз:',v,' Салфеток:',s,' Цветов:',c); 
end.

[TinMan]

2 lamer_1:
ответ будет верным, но только если будет вообще. Заставлять компьютер делать СТОЛЬКО лишней работы, имхо, непозволительно. Ламер_1, ты вообще проходил деление в школе? или, когда нужно поделить, ты в голове каждый раз цикл прокручиваешь??
Вот примерно так можно сделать..

const
  count=100;
  money=100;
  vp= 10;
  sp= 5;
  cp= 0.5;

var
  v,s,c:integer;

begin
  for v:=1 to round(money/vp) do 
    for s:=1 to round((money-v*vp)/sp) do begin
      c:= round((money-v*vp-s*sp)/cp);
      if v+s+c=count then writeln('Ваз:',v,' Салфеток:',s,' Цветов:',c)
    end
end.

(не проверял, исправлял прямо тут)
Я не стал тут делать проверку на правильность суммы - при данных ценах на комплектующие она не требуется. Если цены изменятся, можно добавить.

[Serge_Bliznykov]

TinMan, +1

а вообще, ничто не ново под луной..
см.

http://www.programmersforum.ru/showp...89&postcount=3

http://www.programmersforum.ru/showp...11&postcount=5