Решаем задачи Абрамян на Паскале. 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.

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;
begin
  Task('While16');
read(p);
s:=10;
i:=10;
k:=1;
while s<=200 do
   begin
      i:= i + i*p/100;
      s:=s+i;
      k+=1;
   end;
write(k,s);
end.

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

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