Вопрос, который вызвал трудности
Улитка ползёт по вертикальному шесту высотой h метров, поднимаясь за день на a метров, а за ночь спускаясь на b метров. На какой день улитка доползёт до вершины шеста?
Входные данные
Программа получает на вход натуральные числа h, a, b. Гарантируется, что a>b.
Выходные данные
Программа должна вывести одно натуральное число.
Примечание
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.
Примеры
входные данные
10
3
2
выходные данные
8
входные данные
20
7
3
выходные данные
5
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Улитка ползёт по вертикальному шесту высотой h метров, поднимаясь за день на a метров, а за ночь спускаясь на b метров. На какой день улитка доползёт до вершины шеста?
Входные данные
Программа получает на вход натуральные числа h, a, b. Гарантируется, что a>b.
Выходные данные
Программа должна вывести одно натуральное число.
Примечание
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.
Примеры
входные данные
10
3
2
выходные данные
8
входные данные
20
7
3
выходные данные
5
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
// 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
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.