Перевод времени, часы в минуты и обратно Опции

[111]

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

[klem4]

Apal, моя прога вообще не то считает что нужно, я же писал, но вроде если считать правильным мой вариань рассуждений, что m - минуты, то все норм работает ... Хотя это собственно не важно

Вот если надо мое доделаное решение через цикл

uses crt;
var
   n,m,i,s : word;
begin

   clrscr;

   write('n='); readln(n);
   write('m='); readln(m);

   m := m * 60;
   s := m;

   for i := 1 to n-1 do inc(s, i*10 + m);

   writeln('All time : ', s div 60,' hours, ', s mod 60,' minuts');

   readln;

end.

хехе щас проглядел месаджы, это предложил дож в 3 посте

Сообщение отредактировано: klem4 - 20.11.2005 16:53