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

@Заида · Регистрация: 02.12.2010

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

@~~pavelr~~ · 02.12.2010, 14:41

Pascal

s:=10;
k:=1;
while s<=200 do
begin
s:=s+p;
k:=k+1;
end;
writeln('K=',k,'  S=',s);

@Puporev · 02.12.2010, 14:55

Pascal

uses crt;
var k:integer;
    sd,s,p:real;
begin
clrscr;
repeat
write('Увеличение длины пробега 0<p<50 p=');
readln(p);
until(p>0)and(p<50);
s:=10;
sd:=10;
k:=1;
while s<200 do
 begin
  sd:=sd+p;
  s:=s+sd;
  k:=k+1;
  writeln('K=',k,'  S=',s:0:3);
 end;
writeln('K=',k,'  S=',s:0:3);
readln
end.

Добавлено через 59 секунд

Сообщение от pavelr

s:=s+p;

Это не верно, р не ежедневный пробег, а приращение.

@Заида 0 / 0 / 0 Регистрация: 02.12.2010 Сообщений: 4
		1
	Определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км 02.12.2010, 14:38. Показов 1993. Ответов 2 Метки нет (Все метки) Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега предыдущего дня (р вещественное 0<р<50) по данному р определить после какого дня суммарный пробег лыжника за все дни превысит 200 км. и вывести найденное количество дней К (целое) и суммарный пробег S(вещественное) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение