Ответ:

Делаю токо на Паскаль

Объяснение:

program zz;

uses crt;

var

h,x,y,p:real;

sut:Integer;

begin

p:=0;

WriteLn('Введите высоту дерева H');

Readln(h);

WriteLn('Введите высоту на которую улитка поднимаетса за 12 часов X');

Readln(x);

WriteLn('Введите высоту на какую улитка спадает вниз Y');

Readln(y);

while p<h do

begin

sut:=sut+1;

p:=p+x;

if p<h then

p:=p-y;

end;

WriteLn('За ',sut,' суток');

readln;

end.