Автор: Anton

Anton — Wed, 24 Dec 2014 10:25:17 +0000

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

Автор: Кирилл

Кирилл — Fri, 19 Dec 2014 17:32:05 +0000

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

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;

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.

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

Автор: Anton

Автор: Кирилл