Question

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

Answer 1

Pascal

varn,m,i :Integer;
begin 
  readln(n); 
  readln(m);
  m:=m * 60; 
    for i:=1 to n do 
      begin
        m:=m+10;
       end;  
   write(m div 60+' часа(ов)');
end.