В марсианских сутках N часов. У марсиан Ятеп и Ашам есть часы со стрелками

[isst]

Помогите мне, пожалуйста с решением следующей задачи:

В марсианских сутках N часов. У марсиан Ятеп и Ашам есть часы со стрелками, которые работают почти так же, как земные – большая стрелка делает один оборот в час, а маленькая – один оборот в сутки. Ятеп и Ашам поссорились и решили не разговаривать, пока стрелки часов не совпадут. Определите точный момент времени, когда это случится.

Формат входных данных
Во входном файле задано число тестов K (0 ≤ K<104), далее для каждого теста указаны целые числа N, A, B и C (1<109, 0 ≤ A, 0 ≤ B<109). Числа A, B и C означают, что Ятеп и Ашам поссорились в A+B/C часов.

Формат выходных данных
Для каждого теста выведите искомое время в том же формате: числа A, B и C, такие, что искомое время равно A+B/C (0 ≤ A, 0 ≤ B, дробь B/C – несократимая).

[Аватар]

А вот почитай, может прояснится в голове
http://www.programmersforum.ru/showthread.php?t=167068

[isst]

Сообщение от Аватар

А вот почитай, может прояснится в голове
http://www.programmersforum.ru/showthread.php?t=167068

Спасибо, щас посмотрю.

[isst]

Сообщение от Аватар

А вот почитай, может прояснится в голове
http://www.programmersforum.ru/showthread.php?t=167068

В общем, я тут подумал, написал вот такой код:

function NOD(a, b:LongInt):LongInt;
 
var c:LongInt;
 
begin
  while (b <> 0) do
  begin
    c:= a mod b;
    a:= b;
    b:= c;
  end;
  NOD:= a;
end;

var k, n, a, b, c, i:LongInt;
 
procedure outputresult(x, y, h:LongInt);
 
var alpha, betta, gamma, buf, nodik:LongInt;
 
begin
  alpha:=  x div y;
  buf:= x - y * alpha;
  alpha:= (h+alpha) mod N;
  nodik:= NOD(buf, y);
  betta:= buf div nodik;
  gamma:= y div nodik;
  writeln(alpha, ' ', betta, ' ', gamma);
end;
 

begin
  readln(k);
  for i:= 1 to k do
  begin
    readln(n, a, b, c);
    if b*(N-1) < a*c then outputresult(a, n-1, a) 
    else outputresult(a+1, n-1, a+1);
  end;
end.

Только он не на всех тестах срабатывает правильно. Посмотрите, пожалуйста, в чем моя ошибка?

[isst]

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

В общем, я тут подумал, написал вот такой код:

function NOD(a, b:LongInt):LongInt;
 
var c:LongInt;
 
begin
  while (b <> 0) do
  begin
    c:= a mod b;
    a:= b;
    b:= c;
  end;
  NOD:= a;
end;

var k, n, a, b, c, i:LongInt;
 
procedure outputresult(x, y, h:LongInt);
 
var alpha, betta, gamma, buf, nodik:LongInt;
 
begin
  alpha:=  x div y;
  buf:= x - y * alpha;
  alpha:= (h+alpha) mod N;
  nodik:= NOD(buf, y);
  betta:= buf div nodik;
  gamma:= y div nodik;
  writeln(alpha, ' ', betta, ' ', gamma);
end;
 

begin
  readln(k);
  for i:= 1 to k do
  begin
    readln(n, a, b, c);
    if b*(N-1) < a*c then outputresult(a, n-1, a) 
    else outputresult(a+1, n-1, a+1);
  end;
end.

Только он не на всех тестах срабатывает правильно. Посмотрите, пожалуйста, в чем моя ошибка?

Все-все, понял, там LongInt. ->> Int64