Cделать на языке паскаль
Улитка за день залезает вверх по дереву на V м, а за ночь спускается на U м. Высота дерева H м. За сколько дней D улитка поднимется на вершину дерева?
Cделать на языке паскаль
Улитка за день залезает вверх по дереву на V м, а за ночь спускается на U м. Высота дерева H м. За сколько дней D улитка поднимется на вершину дерева?
Улитка за день залезает вверх по дереву на V м, а за ночь спускается на U м. Высота дерева H м. За сколько дней D улитка поднимется на вершину дерева?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SnailClimb;
var
V, U, H, D, day, total: integer;
begin
writeln('Enter the height of the tree (H):');
readln(H);
writeln('Enter the distance climbed during the day (V):');
readln(V);
writeln('Enter the distance slid down during the night (U):');
readln(U);
day := 0;
total := 0;
repeat
if total >= H thenday := day + 1;
total := total + V;
break;
total := total - U;
until false;
writeln('The snail will climb to the top in ', day, ' days.');
end.