Улитка ползёт по вертикальному шесту высотой h метров, поднимаясь за день на a метров, а за ночь спускаясь на b метров. На какой день улитка доползёт до вершины шеста? Входные данные Программа получает на вход натуральные числа h, a, b. Гарантируется, что a>b. Выходные данные Программа должна вывести одно натуральное число. Примечание При решении этой задачи нельзя пользоваться условной инструкцией if и циклами. Примеры входные данные 10 3 2 выходные данные 8 входные данные 20 7 3 выходные данные 5

Var
    d, a, b, h, s: integer;

begin
    readln(h, a, b);
    {проверка}        
    d := 0;
    s := 0;
    repeat
        d := d + 1;
        s := s + a;
        if s >= h then break;
        
        s := s - b;
    until s >= h;
    writeln(Проверка дней = , d);
    writeln();
    
    {решение без циклов и условных операторов}
    h := h - a;
    b := a - b;
    s := (b - h mod b) mod b; {добавка до целого}
    d := 1 + (h + s) div b;
    writeln(Дней = , d);    
end.