Nguyễn Thịnh
Hỏi từ APP VIETJACK
Viết chương trình pascal thực hiện nhiệm vụ sau : nhập 3 số nguyên dương từ bàn phím, xuất ra kết quả tính tổng của 3 số kiểm tra có chia hết cho 6 và 9 không.
Quảng cáo
1 câu trả lời 424
Var a,b,c,T:integer;
Begin
Writeln('nhap so thu nhat la a= '); Read(a);
Writeln('nhap so thu hai la b= '); Read(b);
Writeln('nhap so thu ba la c= '); Read(c);
T:=a+b+c;
If (T mod 6 = 0) and (T mod 9 = 0) then writeln('tong cua 3 so chia het cho 6 va 9') else
writeln('tong cua 3 so khong chia het cho 6 va 9');
Readln;
End.
TH nếu chia hết cho 9 hoặc 6 thì thay and thành or và sửa lại phần sau
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
45463 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34882 -
Đã trả lời bởi chuyên gia
30698 -
Hỏi từ APP VIETJACK28315
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22483
Gửi báo cáo thành công!
