Составить программу в Паскаль. Высота столба равна 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