Question

Воробей джек прыгает по изгороди с колышка на соседний колышек. каждый прыжок занимает у него 1 секунду. он делает a прыжков вперед, потом b прыжков назад (b формат ввода: n a b пример ввода: 11 4 1 формат вывода: k – минимальное количество секунд пример вывода: 14 pascal

Answer 1

Var
ans,n, a, b,i,j:integer;
begin
Readln(n, a, b);
i:= 1;ans:=0;
while true do begin
  for j:= 1 to a do
    if i + j > n then break
  else ans:= ans + 1;
  i:= i + a;
  if i >= n then break;
  i:= i - b;
  ans:= ans + b;
end;
Writeln(ans);
end.