определить значение целочисленных переменных х и у после выполнения фрагмента программы
x:= 19;
y := 3;
z:=y*2;
y:=x mod y;
x:=x-z;
y:=y+z;

Question

определить значение целочисленных переменных х и у после выполнения фрагмента программы 
x:= 19; 
y := 3; 
z:=y*2; 
y:=x mod y; 
x:=x-z; 
y:=y+z;

Ирина Морозли · Accepted Answer

x:= 19; 
y := 3; 
z:=y*2; //3*2=6 
y:=x mod y; // 19 \ 6 = 1 
x:=x-z; // 19 - 6 = 13 
y:=y+z; //1+6=7

Валентина · Answer

<img src="//otvet.imgsmail.ru/download/4f352857f579740ed86668d03225774d_i-565.jpg" > 
 
Вопрос может возникнуть только с четвёртым действием y:=x mod y;. 
Решается всё очень просто: 
1) разделив на цело 19 на 3 получим 6 
2) отняв от 19 произведение 3 на 6, получим 1 
 
19:3=6&#8531 
19-3*6=19-18=1