Определить, после какого дня суммарный пробег лыжника превысит 200 км

@shelterthebeast · Регистрация: 19.12.2020

Author24 — интернет-сервис помощи студентам

Цикл с предусловием и постусловием (PascalABC).
Спортсмен-лыжник начал тренировки, пробежав в первый день 10
км. Каждый следующий день он увеличивал длину пробега на P процентов (P вводится пользователем, 0<P<30). Определить, после
какого дня суммарный пробег лыжника за все дни превысит 200 км
(вывести найденное количество дней K и суммарный пробег).

@canadamoscow · 19.12.2020, 10:27

Pascal

1
2
3

## var (f, days, dist) := ((ReadlnInteger('Увеличение на P (0..30) =')+100)/100, 1, 10.0);
while dist < 200 do (days, dist) := (days + 1, dist + dist * f);
$'Дней: {days}, суммарный пробег: {dist}'.Println

@shelterthebeast · 18.02.2021, 14:54 **[ТС]**

А попроще как-то можно?

@Puporev · 18.02.2021, 15:36

На простом Паскале.

Pascal

var days:integer;
    f,dist:real;
begin
repeat
write('Введите процент 0<p<30 f=');
readln(f);
until(f>0)and(f<30);
dist:=10;
days:=1;
repeat
dist:=dist+dist*f/100;
inc(days);
until dist>200;
write('Количество дней=',days,' общий пробег=',dist:0:2)
end.

@shelterthebeast · 19.02.2021, 04:13 **[ТС]**

Благодарю

@shelterthebeast 0 / 0 / 0 Регистрация: 19.12.2020 Сообщений: 50
		1
	Определить, после какого дня суммарный пробег лыжника превысит 200 км 19.12.2020, 04:17. Показов 644. Ответов 4 Метки нет (Все метки) Цикл с предусловием и постусловием (PascalABC). Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега на P процентов (P вводится пользователем, 0<P<30). Определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км (вывести найденное количество дней K и суммарный пробег). 0

@shelterthebeast 0 / 0 / 0 Регистрация: 19.12.2020 Сообщений: 50
	18.02.2021, 14:54 [ТС]	3
	А попроще как-то можно? 0

@shelterthebeast 0 / 0 / 0 Регистрация: 19.12.2020 Сообщений: 50
	19.02.2021, 04:13 [ТС]	5
	Благодарю 0