Các câu hỏi dưới đây có thể giống với câu hỏi trên
Bảng xếp hạng
Tất cảToánVật lýHóa họcSinh họcNgữ vănTiếng anhLịch sửĐịa lýTin họcCông nghệGiáo dục công dânÂm nhạcMỹ thuậtTiếng anh thí điểmLịch sử và Địa lýThể dụcKhoa họcTự nhiên và xã hộiĐạo đứcThủ côngQuốc phòng an ninhTiếng việtKhoa học tự nhiên
giải
uses crt;
var n,i,x:longint;
begin
write(' nhap so n: ');readln(n);
x:=0;
for i:=2 to n-1 do
if n mod i=0 then x:=1;
if x=0 then writeln(n,' la so nguyen to ')
else writeln(n,' ko la so nguyen to ');
readln
end.
thôi đau đầu lắm đọc mấy cái kia ko hỉu đề bài thì ai giải đc