nhập N in ra màn hình số chia hết chia 3 và ko chia hết cho 3
2 câu trả lời
Program So_chia;
Uses crt;
Var N: integer;
Begin
Clrscr;
Writeln ('Nhap N = ');
Readln (N) ;
If N mod 3 = 0 then Readln (N);
If N mod 3 # 0 then Readln (N);
End
uses crt;
var n : integer;
begin clrscr;
write('Nhap n='); readln(n);
If n mod 3 = 0 then write('So chia het cho 3') else write('So khong chia het cho 3');
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
