В первый день пловец проплыл 3км. В каждый последующий день он проплывал на 10% больше, чем в предыдущий. К какому дню он проплывет (суммарно) более 30 км? Программа Pascal.

Предыдущий
вопрос Следующий
вопрос

program SwimDistance;

var
distance, totalDistance: real;
day: integer;

begin
distance := 3;
totalDistance := distance;

day := 1;

while totalDistance < 30 do
begin
distance := distance * 1.1;
totalDistance := totalDistance + distance;
day := day + 1;
end;

writeln('Swimmer will swim more than 30 km by day ', day);
end.