Question

ПОМАГИИТЕЕ ПАСАНЫЫЫЫ В первый день пловец проплыл 3 км. В Каждый последующий день он проплывал 10% больше,чем в предыдущий. К какому дню он проплывет более 30 км? Программа паскаль через оператор Ревит.

Answer 1

// PascalABC.NET

begin

var distance:=3.0;

var sum:=3.0;

var days:=1;

repeat

   distance += distance * 0.1;

   sum += distance;

   days += 1;

until sum > 30;

writeln(days);

end.