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

нет компилятора чтобы проверить на ошибки, поэтому перепроверь сам на компьютере. Думаю, пойдёт так:program plov ; var day : integer ; var km , sum : real ; beginday := 1 ;km := 3 ;sum := km ;while ( sum <= 30 ) do begin  day := day + 1 ;  km := km * 1.1 ;  sum := sum + km ;end ;writeln ( 'day=' , day ) ;end.Должно, как я думаю, получиться в ответе 8-й день.Отпиши что получится, ладно? Мне самому интересно.