В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?

Время работы, как сумма арифметической прогрессии:

а₁ = M, d = 10 мин = 1/6 часа.

Сумма первых N членов арифметической прогрессии:

S = ((2M + (N - 1) / 6) * N) / 2;

Программа с использованием готовой формулы и добавлением времени в цикле:

program senokos;

var M, N: integer;

s, s1: real;

begin

writeln ('Время работы первой косилки (M) ');

readln (M);

writeln ('Число коcилок (N) ');

readln (N);

S : = M;

S : = ((2 * M + (N-1) / 6) * N) / 2;

writeln ('Время работы бригады в часах (формула) - ', s);

S : = M;

S1: = M;

For i: integer : = 1 to N - 1 do

begin

S : = S + 1/6;

S1 : = S1 + S;

end;

writeln ('Время работы бригады в часах (цикл) - ', S1)

end.