Question

Народ помогите очень срочно нужно!!!! 30 баллов.


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

написать либо с циклом WHILE, либо с циклом Repeat - until. Заранее благодарю за помощь.

Answer 1

var n,m,i :Integer;

begin  

readln(n);  

readln(m);

m:=m * 60;  

  while i<>n do    

    begin

      m:=m+10;

      i+=1;

     end;    

 write(m div 60+' часа(ов)');

end.