Mạng máy tính và internet

Đinh Thị Thùy Trang

Số nguyên tố là những số mà chỉ chia hết cho 1 và chính nó. Cho trước số nguyên N

Dữ liệu vào: Cho từ file văn bản SNT.INP gồm 1 dòng chứa số N

Dữ liệu ra: Xuất ra file văn bản SNT.OUP gồm:

+ Dòng 1: Kiểm tra xem N có phải số nguyên tố không, nếu đúng in ra 1, sai in ra 0

+Dòng 2: In ra các số nguyên tố từ 1 đến N. Nếu như không có số nguyên tố thỏa mãn thì in ra No

Nguyễn Lê Phước Thịnh
21 tháng 11 2020 lúc 14:04

const fi='snt.inp';

fo='snt.out';

var f1,f2:text;

n,i,dem,j,kt:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

kt:=0;

for i:=2 to n-1 do

if n mod i=0 then

begin

kt:=1;

break;

end;

if kt=0 then writeln(f2,'1')

else writeln(f2,'0');

for i:=1 to n do

begin

dem:=0;

for j:=1 to i do

if i mod j=0 then inc(dem);

if dem=2 then write(f2,i:4);

end;

close(f1);

close(f2);

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
helpme
Xem chi tiết
Lục Hạ Vy
Xem chi tiết
hoàng đá thủ
Xem chi tiết
helpme
Xem chi tiết
helpme
Xem chi tiết
helpme
Xem chi tiết
helpme
Xem chi tiết
Nhật Nguyễn
Xem chi tiết
Doãn Hoài Trang
Xem chi tiết
Doãn Hoài Trang
Xem chi tiết