Что будет напечатано в результате выполнения ?
C объяснением.

procedure proc;
var
x,y,z:integar;
begin
x:=17;
y:=x div 5;
z:=y mod 2;
write(z);
end;
begin
proc;
end.

Объяснение:

1. сначала иксу придаётся значение 17

2. игрик будет равен ЦЕЛОЙ части от деления икса на 5. То есть если мы делим 17 на 5, то получаем 3 целых и дробную часть

3. z равен ОСТАТКУ от деления на 2. То есть если мы 3 делим на 2, то получаем 1 и в остатке 1.

На экран выведется 1

Как вычислить остаток?

Из числа вычитаем целую часть деления и получаем остаток

5:2= 3 целая

5-3 = 2 остаток