Question

определите значение целочисленных переменных a и b после выполнения фрагмента программы
a:=12
b:=5
t:=b
b:=a mod b
a:=b+a-t
A)a=9, b=2
B)a=10, b=2
C)a=5, b=14
D)a=2, b=9

Answer 1

Ответ: А). a=9, b=2

Программа:
Program n;
Var a, b, t:integer; 
Begin   
a:=12;  
b:=5;  
t:=b;  
b:=a mod b;  
a:=b+a-t;   
writeln ('a','=',a);   
writeln ('b','=',b);
End.

Answer 2

спасибо большое)))))