multiplication assign

Smart pascal source code


var i := 10;

i *= 2;
WriteLn(i);
i *= i;
WriteLn(i);
i *= 10 - i;
WriteLn(i);

var f := 0.5;

f *= 2.5;
WriteLn(f);
f *= f;
WriteLn(f);
f *= 16 + f;
WriteLn(f);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
20
400
-156000
1.25
1.5625
27.44140625
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

      var i = 0, f = 0;
      i = 10;
      i*=2;
      WriteLn(i);
      i*=i;
      WriteLn(i);
      i*=10-i;
      WriteLn(i);
      f = 0.5;
      f*=2.5;
      WriteLn(f);
      f*=f;
      WriteLn(f);
      f*=16+f;
      WriteLn(f);