Улитка ползёт по вертикальному шесту высотой h метров, поднимаясь за день ** a метров, а...

Question

Улитка ползёт по вертикальному шесту высотой h метров, поднимаясь за день на a метров, а за ночь спускаясь на b метров. На какой день улитка доползёт до вершины шеста?

Входные данные
Программа получает на вход натуральные числа h, a, b. Гарантируется, что a>b.

Выходные данные
Программа должна вывести одно натуральное число.

Примечание
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.

Примеры
входные данные
10
3
2
выходные данные
8
входные данные
20
7
3
выходные данные
5

Comments

Сюда надо написать код pascal?

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var h,a,b:integer;
  Write('Введите h a b: '); Read(h,a,b);
  Writeln(Ceil((h-a)/(a-b))+1)
end.

Примеры решения
Введите h a b: 10 3 2
8

Введите h a b: 20 7 3
5

Answer 2

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.

Comments

да уж задачка не из легких

---

Ну не сказал бы.

---

сложность в том что надо поделить, получить целое число при любых вхождениях и не использовать if.

---

изобретение этой добавки до целого заняло время, ведь обычно это решается или через функцию, которой в паскале нет или через условный оператор

---

Это задача дается после изучения целых чисел и действий над ними, вот выведенная формула: 1 + ((abs(h - a) + h - a) div 2 + a - b - 1) div (a - b)

---

Решение хоть и удовлетворяет условию, но уж никак не рациональное

---

1 + (h - b - 1) / (a - b) или даже (то же самое, что и решение ниже)

---

1 + (h - b - 1) div (a - b)*