Question

Впервый день тренировок спортсмен пробежал 10 км, каждый последующий день он увеличивал дневную норму на 2 километра от нормы предыдущего дня. через сколько дней спортсмен будет пробегать в день более 20 км? написать программу в паскале по этой .

Answer 1

Var i:integer; n,k:real; begin  n:=10;k:=10;  for i:=1 to 6 do   begin    n:=1.1*n;    k:=k+n;   end;  writeln(k:5:2); end.

Answer 2

program HelloWorld;

var run, day: integer;

begin

    run := 10;

    day := 1;

    while run<20 do

    begin

        write('День:');

        write(day);

        write('Километраж:');

        writeln(run);

        day:= day +1;

        run := run+2;

    end;

    write('День:');

    write(day);

    write('Километраж:');

    writeln(run);

end.