pascalabcnet/TestSuite/pow.pas
Mikhalkovich Stanislav b4c5ad785e -2**4 теперь возвращает -16
2**3**2 теперь работает
2020-09-14 21:14:08 +03:00

9 lines
132 B
ObjectPascal

const a = -2**4;
const b = 2**3**2;
begin
Assert(-2**4 = -16);
Assert(a = -16);
Assert(2**3**2=512);
Assert(b=512);
end.