Расширенные операторы присваивания
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
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.