Ответы на вопрос:
Var i: integer; x,h,n: real; begin writeln('введите x,h и n'); readln(x,h,n); while x< n do begin x: =x+h; i: =i+1; end; writeln('за ',i,' дней'); end.
Популярно: Информатика
-
Vladislav52524526425.11.2020 13:26
-
ГГЧОЧОЧ09.10.2020 09:52
-
akur1216.03.2020 09:13
-
sofijamikisko19.12.2021 23:20
-
ооо32201.09.2020 15:08
-
Марина645666724.09.2022 19:26
-
калина00718.09.2020 01:05
-
отличница5457508.11.2021 18:54
-
suvaeva884p019j523.01.2021 00:53
-
55brb30.05.2020 06:54