Определите значение целочисленных переменных x и y после выполнения фрагмента...

Question

Определите значение целочисленных переменных x и y после выполнения фрагмента программы:

х := 11;

у := 5;

t := y;

у := х mod у;

x := t;

у := у + 2*t;

Answer 1

Код полностью
var
    x, y, z, a, b, c, d, t: integer ;

begin
    x := 11;
    y := 5;
    t := y;
    y := x mod y;
    x := t;
    y := y + 2 * t;
    writeln('x = ', x, ', y = ', y, ', t = ', t);
end.

Вывод
x = 5, y = 11, t = 5