Помогите пожалуйста с расчетами ....

[Sashko]

Сообщение от sverhuVniz

всё верно


часы будут уменьшаться (на 24*кол суток) если есть целые сутки

Ну я вот вставлял эти тсрочки , виходит так как я и говорил ... потолок этому - 1 сутка , оно показывает 1 сутка 1510 часов 23 минуты .

[lexus_ilia]

не партесь, надо просто в коде

 m:=0;
 while b>=60 do
 begin
  inc(m);
  b:=b-60;
 end;

сделать его вот таким...

 
 m:=0;
 L:=0;
 while b>=60 do
 begin
  inc(m);
  b:=b-60;
  if m=24 then
  begin
   dec(m,24);
   inc(L); {В var добавить l,m:integer;}
  end;
 end;

и при выводе выводить L и всё...

[Sashko]

Сообщение от lexus_ilia

не партесь, надо просто в коде

 m:=0;
 while b>=60 do
 begin
  inc(m);
  b:=b-60;
 end;

сделать его вот таким...

 
 m:=0;
 L:=0;
 while b>=60 do
 begin
  inc(m);
  b:=b-60;
  if m=24 then
  begin
   dec(m,24);
   inc(L); {В var добавить l,m:integer;}
  end;
 end;

и при выводе выводить L и всё...

Все гуд , пасиб тебе огромное