Определите, что будет напечатано в результате выполнения программы var c, m,...

Question

Определите, что будет напечатано в результате выполнения программы 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.

Comments

Какой это язык прогромирования Phyton C++ или C#?

---

Паскаль

Answer 1

Ответ:

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

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

Ответ: 999