Question

СРОЧНО!!!!!!!!!!!
Выполните трассировку следующей программы:
programm qq; uses crt; var a, b, c: integer;
begin
a := 5; b := 3; c := a div 7; b := a+c; a := a*5; c := a mod b;
end.

Answer 1

1. a := 5;
2. b := 3;
3. c := a div 7 = 5 div 7 = 0
4. b := a + c = 5 + 0 = 5
5. a := a * 5 = 5 * 5 = 25
6. c := a mod b = 25 mod 5 = 0