Turbo Pascal. Спортсмен пробежал 10 км в первый день. Каждый следующий день он увеличивал норму на 10% от нормы предыдущего дня. Определить: a) Через сколько дней он будет пробегать не более 20 км? б) Сколько километров он пробежит на 7-ой день?

Program Primer1;

Var

i: integer;

d, s: real;

begin

d : = 10; { пробег за 1 день}

s : = 10; {сумма пробега за 1 день}

for i : = 2 to 7 do

begin

d: = d * 1.1; {пробег за каждый следующий день}

s: = s + d; {сумма пробега}

end;

writeln ('за 7 день-', s); {пробег за 7 день}

end.

За 2 день спортсмен пробегает 11 км, поэтому не более 20 км он пробежит за 1 день.

За 30 и далее км можно вставить строку в цикл

if s < 30 then writeln ('за ', i, 'день');