Verified answer

uses crt;

var i,n,dv,chuc,tram,nghin:integer;

begin

clrscr;

repeat

writeln('Nhap i=');readln(i)

until (i>0)and(i<=9999);

dv:=i mod 10;

chuc:=(i div 10) mod 10;

tram:=(i div 100) mod 10;

nghin:=(i div 1000);

if dv+chuc=tram+nghin then

write(i,' thoa:',dv,'+',chuc,'=',tram,'+',nghin) else

write('khong thoa');

readln;

end.

Gọi số đó là n.

Nếu (n/1000 + n/100%10) == (n/10%10 + n%10) thì trả về True, không thì trả về False.

Số thứ nhất = n/1000 (2534/1000 = 2)

Số thứ hai = n/100%10 (2534/100 = 25, 25%10 = 5)

Số thứ ba = n/10%10 (2534/10 = 253, 253%10 = 3)

Số thứ tư = n%10 (2534%10 = 4)

%: phép chia lấy số dư, hay còn gọi là hàm Mod, thao tác trên kiểu dữ liệu số nguyên.

/: phép chia lấy phần nguyên nếu thao tác trên kiểu dữ liệu số nguyên.