Составить программу в Паскаль. Высота столба равна h. Улитка за день поднимется вверх на х единиц. За ночь спускается на y единиц. Высота за сутки равна I. За сколько дней улитка поднимется до конца? Заранее спасибо!!!
Составить программу в Паскаль.
Высота столба равна 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
Не нашли ответ?
Похожие вопросы