Question

Волк погнался за зайцем по бесконечной дороге. Когда волк делает m скачков, заяц делает n скачков. Скачок зайца в 2 раза короче скачка волка, а скачок волка равен k метров. Какое расстояние пробежит волк, чтобы догнать зайца. Если первоначальное расстояние между ними равно d

Answer 1

Var
    m, n: integer;
    k, d, s: real;

begin
    read(m, n, k, d);
    repeat
        d := d - m * k + n * k / 2;
        s := s + m * k;
    until d <= 0;
    writeln(s);
end.