Question

Mọi người giúp e bài nay vs ạ:

Viết chương trình nhập 2 số nguyên a,b từ bàn phìm(a<>b; a,b<32000).Hãy in ra màn hình chữ 'YES' nếu số lớn chia hết cho 2014 ngược lại thì ghi 'NO'

Answer 1

var a,b,c,d,e,f,m,l,i,dem,n:longint;
s:real; st:ansistring;
begin
write('Nhap so nguyen a: ');readln(a);
write('Nhap so nguyen b: ');readln(b);
if a>b then begin
if a mod 2014=0 then write('YES') else write('NO'); end;
if b>a then begin
if b mod 2014=0 then write('YES') else write('NO'); end;
readln;
end.