18 lines
317 B
ObjectPascal
18 lines
317 B
ObjectPascal
// Ïðèñâàèâàíèÿ += -= *= /=
|
|
var
|
|
i: integer;
|
|
r: real;
|
|
|
|
begin
|
|
i := 1;
|
|
writeln('i := 1; i = ',i);
|
|
i += 2; // Óâåëè÷åíèå íà 2
|
|
writeln('i += 2; i = ',i);
|
|
i *= 3; // Óâåëè÷åíèå â 3 ðàçà
|
|
writeln('i *= 3; i = ',i);
|
|
writeln;
|
|
r := 6;
|
|
writeln('r := 6; r = ',r);
|
|
r /= 2;
|
|
writeln('r /= 2; r = ',r);
|
|
end. |