Language:
Русский
English
{Trunc.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Trunc function.}
uses WinCrt;
begin
Writeln(1.4, ' becomes ', Trunc(1.4));
Writeln(1.5, ' becomes ', Trunc(1.5));
Writeln(-1.4, ' becomes ', Trunc(-1.4));
Writeln(-1.5, ' becomes ', Trunc(-1.5));
end.