Язык:
Русский
English
{ Пример программы для функции Trunc }
uses Crt;
begin
WriteLn(1.4, ' преобразовывается в ', Trunc(1.4));
WriteLn(1.5, ' преобразовывается в ', Trunc(1.5));
WriteLn(-1.4, ' преобразовывается в ', Trunc(-1.4));
WriteLn(-1.5, ' преобразовывается в ', Trunc(-1.5));
end.
begin
WriteLn(1.4, ' преобразовывается в ', Trunc(1.4));
WriteLn(1.5, ' преобразовывается в ', Trunc(1.5));
WriteLn(-1.4, ' преобразовывается в ', Trunc(-1.4));
WriteLn(-1.5, ' преобразовывается в ', Trunc(-1.5));
end.