Minh Đoàn Nguyễn
Hỏi từ APP VIETJACK
Viết chương trình nhập vào số nguyên a. Thông báo ra màn hình a có chia hết cho 3 hay không?
Quảng cáo
3 câu trả lời 775
Program bai1;
uses crt;
var a: integer;
begin
clrscr;
write('nhap a =');
readln(a);
if (a mod 3 = 0 ) then writeln(a , ' chia het cho 3 ')
else writeln(a , ' k chia het cho 3');
readln;
end.
uses crt;
var a: integer;
begin
clrscr;
write('nhap a =');
readln(a);
if (a mod 3 = 0 ) then writeln(a , ' chia het cho 3 ')
else writeln(a , ' k chia het cho 3');
readln;
end.
Program bai1;
uses crt;
var a: integer;
begin
clrscr;
write('nhap a =');
readln(a);
if (a mod 3 = 0 ) then writeln(a , ' chia het cho 3 ')
else writeln(a , ' k chia het cho 3');
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
45347 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34770 -
Đã trả lời bởi chuyên gia
30566 -
Hỏi từ APP VIETJACK28059
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22322
Gửi báo cáo thành công!
