Quảng cáo
1 câu trả lời 350
4 năm trước
var kt: boolean;
N, i: word;
Begin
Write('n = '); readln(n);
Kt:=true;
If n<2 then kt:=false
Else for i:=2 to trunc(sqrt(n)) do
If n mod i=0 then kt:=false;
If kt then write('la so nguyen to')
Else write('khong phai so nguyen to');
Readln
End.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44808
-
Hỏi từ APP VIETJACK26498
Gửi báo cáo thành công!