Составить программу в паскаль. высота столба равна h. улитка за день поднимется вверх на х единиц. за ночь спускается на y единиц. высота за сутки равна i. за сколько дней улитка поднимется до конца? заранее !
Program we Var x,y,I,h,a,count:integer begin readln(x) Readln (y) Readln(h) I:=0 Count:=0 Repeat Count:=count+1 I:=I+x-y Until I>=h Written ('за ',сount', дней улитка поднимется до конца ') End
Var x,y,I,h,a,count:integer
begin
readln(x)
Readln (y)
Readln(h)
I:=0
Count:=0
Repeat
Count:=count+1
I:=I+x-y
Until I>=h
Written ('за ',сount', дней улитка поднимется до конца ')
End