Question

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

Answer 1

Program    cosilka;
const    dopvrem=0.6;
var
      i:integer;
      N:integer;
      m:integer;
      brigada:real;
begin
writeln('Введите количество сенокосилок:');
readln(N);
writeln('Введите количество часов у первой сенокосилки:');
readln(m);
brigada:=m;
for i:=1 to N do brigada:=brigada+dopvrem;
writeln('Ответ:', brigada:3:1,''часов'':3);
End.