Cho số nguyên dương K. Yêu cầu: Kiểm tra K có phải là số nguyên tố hay không. Dữ liệu vào: Cho trong file văn bản NGUYENTO.INP có cấu trúc như sau: - Dòng 1: Ghi số nguyên dương K. (0<K<109) Dữ liệu ra: Ghi ra file văn bản NGUYENTO.OUT theo cấu trúc sau:

hanh1983

2 năm trước

Cho số nguyên dương K. Yêu cầu: Kiểm tra K có phải là số nguyên tố hay không. Dữ liệu vào: Cho trong file văn bản NGUYENTO.INP có cấu trúc như sau: - Dòng 1: Ghi số nguyên dương K. (0<K<109) Dữ liệu ra: Ghi ra file văn bản NGUYENTO.OUT theo cấu trúc sau: - Dòng 1: Ghi Y nếu K là số nguyên tố, ghi N nếu K không là số nguyên tố giúp mình với,bài này dùng tệp mà mình chưa giải quyết được

Loga Sinh Học lớp 12

0 lượt thích 30 xem

1 trả lời

Thích Trả lời

nh247724

Const Fi='NGUYENTO.INP';
Fo='NGUYENTO.OUT';
Var f,g: text;
k: byte;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;

Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,k);
If ngto(k) then Write(g,'Y')
Else Write(g,'N');
Close(f);
Close(g);
End.

Vote (0) Phản hồi (0) 2 năm trước

thanhtra.lttt

const fi='nguyento.inp';

fo='nguyento.out';

var k:longint;

function checkprime(x:longint):boolean;
var i:longint;
begin
if x<2 then exit(false);
for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false) else exit(true);
end;

begin

assign(input,fi);

reset(input);

read(k);

close(input);

assign(output,fo);

rewrite(output);

if checkprime(k) then write('Y') else write('N');

close(output);

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

nêu nội dung đoạn văn "...Tôi không ngờ Dế Choắt ... Bài học đường đời đầu tiên"

cho phân số 2 phần 11 hỏi phải cộng thêm bao nhiêu vào tử số và mẫu số của phân số đó một số tự nhiên là bao nhiêu để được một phân số mới có giá trị bằng 4 phần 7 giúp tớ làm nha

câu bị động nói về kiều khi ở lầu ngưng bích

Mọi ng giúp với ạ e cảm ơn nhiều

11/Bộ phận nào của cơ quan sinh sản có chức năng tạo thành cây mới, duy trì và phát triển nòi giống? A/Hoa. B/Quả. C/Hạt. D/Quả và hạt. 12/Chức năng nào sau đây là của quả? A/Bảo vệ hạt. B/Góp phần phát tán hạt. C/Chế tạo chất hữu cơ. D/Cả a và b. 12/ Chức năng chủ yếu của hoa là gì? A/Phát tán hạt phấn. B/Thụ phấn, thụ tinh để tạo quả và hạt. C/Duy trì nòi giống. D/Bảo vệ bầu nhụy. 13/Những cây sống trong môi trường nước có đặc điểm cấu tạo là: A/Lá lớn, tròn, thân nhỏ. B/Lá lớn, tròn hoặc dài, dẹp, thân xốp, nhẹ. C/Lá lớn, dẹp, có rễ dài. D/Lá dày có lớp sáp bao phủ, thân xốp. 14/Các cây nào sau đây có rễ chống, giúp cây đứng vững và hô hấp? A/Cây tràm. B/Cây phi lao. C/Cây đước. D/Cây bụt mọc. II/Câu hỏi tự luận. 1/Người ta nói rằng những hạt rơi chậm thường được gió mang đi xa hơn. Điều đó đúng hay sai? Vì sao? 2/Cần phải thiết kế thí nghiệm như thế nào để chứng minh sự nảy mầm của hạt phụ thuộc vào chất lượng hạt giống? 3/Vì sao nói cây có hoa là một thể thống nhất.? 4/Cây sống trong những môi trường đặc biệt (sa mạc, đầm lầy) có những đặc điểm gì? Cho một vài ví dụ?

Cho tam giác ABC có 3 góc nhọn, nội tiếp đường tròn (O;R). Điểm M di động trên đường tròn (O;R). Gọi D và E lần lượt là hình chiếu của điểm M lên các đường thẳng AB và AC. CMR: ΔMBC đồng dạng ΔMDE

Làm cho em phần 2 , phần Tiếng Việt

Giải hộ mik bài toán vs bài lịch sử nha Toán:A = 1/3 - 3/4 - (-3/5) + 1/72 - 2/9 - 1/36 + 1/15 Sử: Đánh giá về công lao củabLê Lợi và Nguyễn Trãi trong cuộc kháng chiến chống quân Minh? Giúp mik nha . Mik cảm ơn

Bài 1, a,tìm a để đa thức x^3+x^2-x+a chia hết cho đa thức x+2 b,tìm a và b để đa thức x^3+ax^2+2x+b chia hết cho đa thức x^2+x+1 c,tìm a và b để đa thức x^3+4x^2+ax+b chia hết cho đa thức x^2+x+1 Bài 2, a,tìm N thuộc Z để giá trị biểu thức n^3+n^2-n+5 chia hết cho giá trị biểu thức n+2 b,tìm N thuộc Z để giá trị biểu thức n^3+3n-5 chia hết cho giá trị biểu thức n^2+2 Bài 3,tìm giá trị nhỏ nhất của biểu thức a,A=x^2-6x+11 b,B=x^2-20x+101 c,C=4x-x^2+3 Bài 4,tìm giá trị lớn nhất của biểu thức a,A=5x-x^2 b,B=x-x^2 c,C=4x-x^2+3

câu bị động nói về kiều khi ở lầu ngưng bích

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến