Ответ:
Делаю токо на Паскаль
Объяснение:
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
sut:=sut+1;
p:=p+x;
if p<h then
p:=p-y;
end;
WriteLn('За ',sut,' суток');
readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Делаю токо на Паскаль
Объяснение:
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.