2

2

2

2

2

2 câu lệnh giống nhau và đều xuất ra màn hình số 100 rồi xuống dòng

Program NhatNgu;
Uses crt;
Var m,d,s: longint;
Begin
        Clrscr;
        Write('Nhap m: '); Readln(m);
        d:=0; s:=0;
        While m<>0 do
        Begin
                s:=s+m mod 10;
                inc(d);
                m:=m div 10;
        End;
        Writeln('Co ',d,' chu so');
        Write('Tong cac chu so = ',s);
        Readln
End.

Bấm vào nút hỏi chi tiết nha =)) 

1 + 1 = 10 ở đây nghĩa là viết ở dạng dãy bit

1 + 1 = 2

Số 1 trong dãy bit là 1

Số 2 trong dãy bit là 10

Nên viết 1 + 1 = 10 trong dãy bit nghĩa là 1 + 1 = 2