Операторы

[Viconte]

Ломаю голову почему код не работает... выдает ошибку "деление на ноль" на строке t:= n mod (q*64*64);

var n,q : integer;
      t: real;
begin
 
n:=125;
q:=64;
t:= n mod (q*64*64);
end.

но если так

var n,q : integer;
      t: real;
begin
 
n:=125;
q:=64;
t:= n mod (64*64*64);
end.

то все работает..почему так ??

[eoln]

Это связано с особенностью старых компиляторов. Для них это равносильно умножению 2-х байтового числа q на два однобайтовых числа 64 и 64 и помещение их в приёмник разрядности равной максимуму из разрядностей умножаемых чисел (то есть всё запишется в 2-хбайтовый тип, произойдёт переполнение и только потом передастся в тип real)
Выход: либо явно указываем подходящий тип, например, longint (для констант подбирается максимально большой исходя из их представления), либо разбиваем на действия. Новые компиляторы этот случай могут обрабатывать сами

[Stilet]

пробуй

 t: double;

[eoln]

Stilet, скорее не t: double;, а q : longint;, ибо проблема только в правой части выражения t:= n mod (q*64*64);
P.S. ТС, переходи на delphi

[Stilet]

eoln

Да согласен...

[_-Re@l-_]

Лучше вообще юзать Extended и int64.