KHI CHẠY CHƯƠNG TRỠNH

1/ Khi chạy chương trỡnh :

Var

a, b, c, N : integer;

Begin

N:=546;

a:=N div 100;

b:=(N Mod 100) div 10;

c:=(N Mod 100) Mod 10;

Write(a+b+c);

End.

Kết quả in ra :

a 5; b 546; c 15; d 6;