K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

23 tháng 2 2019

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.

24 tháng 2 2019

thôi đau đầu lắm đọc mấy cái kia ko hỉu đề bài thì ai giải đc