Van Sâm Lại
Hỏi từ APP VIETJACK
Viết CT nhập vào số nguyên a kiểm tra số đó có chia hết cho 3 hay không in ra YES nếu số đó chia hết cho 3 in ra NO nếu số đó không
chia hết cho 3
chia hết cho 3
Quảng cáo
2 câu trả lời 292
program bai1;
uses crt;
var a: integer;
begin
clrscr;
writeln('nhap a'); readln(a);
if a mod 3 = 0 then write('yes') else write('no');
readln
end.
Program chuongtrinh;
Uses crt;
Var a: integer;
Begin
Clrscr;
Writeln('nhap a'); Readln(a);
If a mod 3 = 0 then writeln('YES') else writeln('NO');
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45316 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34744 -
Đã trả lời bởi chuyên gia
30536 -
Hỏi từ APP VIETJACK27980
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22290
Gửi báo cáo thành công!
