Цикл с параметром

[Jeffrey_Miller]

Здравствуйте, программеры, помогите решить задачу через ЦИКЛ FOR, можно на Pascal... Ну, вообщем...

В компьютер князя Владимира поступили сведения о количестве змеев-горынычей и количестве голов у каждого из них. Илья Муромец срубает 3 головы в час. Сколько нужно таких богатырей, чтобы за сутки очистить от погани землю Киевскую?

Весь день сидим, не можем решить, заранее спасибо

[Serge_Bliznykov]

зачем цикл то?!

var n, h, b : integer;
begin
  Write('Сколько змеев-горынычей:'); ReadLn(n);
  Write('Сколько голов у каждого змея-горыныча:'); ReadLn(h);
  b := n*h div (24*3);
  if n*h mod (24*3) <> 0 then Inc(b);
  WriteLn('Понадобится ',b,' богатырей')
end.

[Jeffrey_Miller]

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

зачем цикл то?!

var n, h, b : integer;
begin
  Write('Сколько змеев-горынычей:'); ReadLn(n);
  Write('Сколько голов у каждого змея-горыныча:'); ReadLn(h);
  b := n*h div (24*3);
  if n*h mod (24*3) <> 0 then Inc(b);
  WriteLn('Понадобится ',b,' богатырей')
end.

Ну, у меня задание, сделать через цикл, сам не пойму, зачем он тут? И вообще, возможно сделать через цикл?)

[Serge_Bliznykov]

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

И вообще, возможно сделать через цикл?)

да, если поставить такую задачу, можно.
просто непонятно, зачем левой пяткой чесать правое ухо?!


Впрочем, извольте:

var n, h, kill, i, b : integer;
begin
  Write('Сколько змеев-горынычей:'); ReadLn(n);
  Write('Сколько голов у каждого змея-горыныча:'); ReadLn(h);
  kill := 0;
  for i:=1 to n*h do begin
    Inc(kill);
    if kill >= (24*3) then begin
      Dec(kill, 24*3);
      Inc(b)
    end;
  end;  
  
  if kill>0 {не всех убили} 
     then Inc(b);
     
  WriteLn('Понадобится ',b,' богатырей')
end.

[Aleksandr H.]

Serge_Bliznykov, не опасаетесь что следующим постом будет просьба на Шарпа перевести с Паскаля а, пардон, не читающий йа

[Serge_Bliznykov]

да это как раз не проблема

            int kill = 0;
            for (int i = 0; i < n*h; i++)
            {
               if(++kill>=(24*3)) 
               {
                   kill -= 24*3; b++;
               }
             }

[evg_m]

поступили сведения о количестве змеев-горынычей и количестве голов у каждого из них

так горынычи бывают РАЗНЫЕ.

5 3 // пять трехголовых
7 6 // семь шестиголовых
11 9 //одиннадцать девятиговых
.... // и другие разновидности

вот и нужен цикл чтобы учесть(просуммировать) ВСЕ разновидности.

[Serge_Bliznykov]

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

вот и нужен цикл чтобы учесть(просуммировать) ВСЕ разновидности.

ну, согласен, это меняет дело. в таком случае действительно цикл нужен!