Mail

В этот день много лет назад...
26 апреля. В 1962 году (62 года назад) - Запускается в космос англо-американский спутник "Ариэль".

Turbo Pascal Documentation

Функция Frac

     Функция: Возвращает дробную часть аргумента.
     Описание: Frac(x : real)
     Тип результата: Вещественный (real).
     Примечания: Параметр х является выражением вещественно-
го  типа.  Результатом  является  дробная  часть  x, то есть
Frас(x) = x - Int(x).
     Прочее: См. также функцию Int.
     Пример:

var
   r : real;
   begin
    f := Frac(123.456);
   end.