Определите, что будет напечатано в результате выполнения программы
var c, m, d:Integer;
Begin
c:=0;
m:=132;
while m>1 do
begin
d:=m mod 10;
c:= (c+d)*10;
m:=m div 10;
end;
writeln(c);
End.

Оператор div отрезает последнюю цифру числа, а mod считает остаток от деления на 2. Если он равен нулю, то выполняется действие M:= M + x mod 10.

Сначала выводится переменная L, в ней содержится счетчик, который считает, сколько раз оператор div отрежет цифру. Отсюда следует, что число должно быть трехзначным. В нашем случае ответом будет число 999, потому что div отрежет последнюю цифру три раза, а условие if x mod 2 = 0 then не будет выполнятся, потому что  остаток от деления на 2 числа 999 не равен нулю, программа выведет 0.

ответ: 999