Lập trình đơn giản

Music Funny

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'

Nguyễn Trung Hiếu
29 tháng 4 2019 lúc 9:07

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.

Bình luận (4)

Các câu hỏi tương tự
duy lê
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Huhu chỉ mình với
Xem chi tiết
Quỳnh
Xem chi tiết
haizzz!!
Xem chi tiết
Thu Hương
Xem chi tiết
Huhu chỉ mình với
Xem chi tiết
Kim Thái
Xem chi tiết
Thanh Thủy Nguyễn
Xem chi tiết