История изменений

Исправление saahriktu, 10.08.19 14:08 (текущая версия) :

program int64overflowtest2;
uses sysutils;
var
        x, y, z: Int64;
begin
        if ParamCount < 2 then begin
                writeln('usage: int64overflowtest2 x y');
                exit;
        end;
        if TryStrToInt64(ParamStr(1), x) = False then x := 0;
        if TryStrToInt64(ParamStr(2), y) = False then y := 0;
        z := x * y;
        writeln(z);
end.

Compiling int64overflowtest2.pas
Linking int64overflowtest2

$ ./int64overflowtest2 99999999999 999999999
7766279530452241921

Исходная версия saahriktu, 10.08.19 14:07:

program int64overflowtest2;
uses sysutils;
var
        x, y, z: Int64;
begin
        if ParamCount < 2 then begin
                writeln('usage: int64overflowtest2 x y');
                exit;
        end;
        if TryStrToInt64(ParamStr(1), x) = False then x := 0;
        if TryStrToInt64(ParamStr(2), y) = False then x := 0;
        z := x * y;
        writeln(z);
end.

Compiling int64overflowtest2.pas
Linking int64overflowtest2

$ ./int64overflowtest2 99999999999 999999999
7766279530452241921