Решаем задачи Абрамян на Паскале. While16

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

Решение:

program While16;

var

P, S, D:Real;

K :Integer;

begin

Write('Введите процент: ');

Readln(P);

K:=1;

D:=10;

S:=10;

while S<=200 do

begin

inc(K,1);

D:=D+D*P/100;

S:=S+D;

end;

Writeln(K,' ',S);

end.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 2

Надо ещё одну переменную, чтобы заносить суммы пробегов за несколько дней.

uses PT4;

var k:integer;

p,s,i:real;

Task('While16');

read(p);

s:=10;

i:=10;

k:=1;

while s<=200 do

i:= i + i*p/100;

s:=s+i;

k+=1;

write(k,s);

Ответить

Anton

24.12.2014 в 14:25

Поправил, на твоё решение.

Ответить

Решаем задачи Абрамян на Паскале. While16

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ