В первый день пловец проплыл 3 км. В каждый последующий день он проплывал на 0,5 больше, чем в предыдущий день. В какой по счёту день пловец начнёт проплывать более 5 км в день. Программа Pascal.

Главное условие задачи задано в последнем предложении.

Пока переменная, которая обозначает расстояние, которое проплыл пловец, не станет равной 5 или не станет больше, чем пять, программа должна наращивать переменную, которая равна количеству потраченных дней.

Нам нужна переменная, которая обозначает начальный километраж:

day_km : = 3;

day_nom : = 1;

Далее мы создаем условие для работы программы:

while (day_km < 5) do

begin

Во-первых, нужно увеличить номер дня на единицу, чтобы потом знать количество всех дней:

day_nom : = day_nom + 1;

Во-вторых, нужно увеличить количество километров:

day_km : = day_km + 0,5;

end;