15 lines
343 B
ObjectPascal
15 lines
343 B
ObjectPascal
// Присваивания += -= *= /=
|
|
|
|
begin
|
|
var i: integer := 1;
|
|
writeln('i := 1; i = ',i);
|
|
i += 2; // Увеличение на 2
|
|
writeln('i += 2; i = ',i);
|
|
i *= 3; // Умножение на 3
|
|
writeln('i *= 3; i = ',i);
|
|
writeln;
|
|
var r: real := 6;
|
|
writeln('r := 6; r = ',r);
|
|
r /= 2;
|
|
writeln('r /= 2; r = ',r);
|
|
end. |