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

@nic-nic · Регистрация: 27.12.2009

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

Помогите пожалуста напеисать програму на паскале для такой задачи
Спорстмен-лыжник начал тренировку, пробежал в первый день К км. Каждый последующий день он увеличивал длительность пробега на Р процентов от пробега предыдущего дня. Определить, после какого дня общий пробег лыжника за все дни превысит N км.
Заранее всем благодарен

@Vladiator · 09.01.2010, 11:10

Pascal

var
 i,n,p:integer;
 k:real;
begin
 readln(k,p,n);
 i:=1;
 while k<=n do begin
  i:=i+1;
  k:=k+(k/100)*p;
 end;
 writeln(i);
 readln;
end.

@nic-nic · 09.01.2010, 11:22 **[ТС]**

огромное спасибо!!!

@nic-nic 0 / 0 / 0 Регистрация: 27.12.2009 Сообщений: 9
		1
	Определить, после какого дня общий пробег лыжника за все дни превысит N км 09.01.2010, 11:03. Показов 1383. Ответов 2 Метки нет (Все метки) Помогите пожалуста напеисать програму на паскале для такой задачи Спорстмен-лыжник начал тренировку, пробежал в первый день К км. Каждый последующий день он увеличивал длительность пробега на Р процентов от пробега предыдущего дня. Определить, после какого дня общий пробег лыжника за все дни превысит N км. Заранее всем благодарен 0

@nic-nic 0 / 0 / 0 Регистрация: 27.12.2009 Сообщений: 9
	09.01.2010, 11:22 [ТС]	3
	огромное спасибо!!! 0

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

Решение