Определите значения целочисленных переменных x, y ,z после выполнения программы: x:=13;...

Question

Определите значения целочисленных переменных x, y ,z после выполнения программы:
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
1) x=13, y=4, z=4
2)x=13, y=13 ,z=13
3)x=4, y=4, z=13
4)x=4, y=3, z=13

Answer 1

Var x,y,z:integer;

begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.

Ответ
3)x=4, y=4, z=13