Ответы на вопрос:
Var a, b, c, summ, d, den: real; beginwrite('введите кол-во км начальные: '); readln(a); write('введите на сколько % увеличивается расстояние каждый день: '); readln(b); write('введите, до скольки км увеличивает расстояние в день лыжник: '); readln(c); den: =0; while a< c do begin d: =a/100*b; // узнаем, на сколько увеличивается растояние a: =a+d; den: =den+1; end; writeln(den); end.написал на pascal. вводить можно любые данные ( не только, которые вы дали)
Популярно: Информатика
-
matveye23424.06.2023 01:50
-
Богдана34818.04.2023 16:32
-
Askmay18.11.2021 02:43
-
Беня201807.12.2022 16:12
-
maximminkov31517.08.2021 03:44
-
CapitanMacmillan19.07.2020 13:08
-
нурлес230.06.2020 05:21
-
Настя20010115.06.2021 14:05
-
zzzXXXD16.11.2021 22:16
-
Werty018311.01.2023 00:07