Tìm các ước số nguyên tố của một số nguyên dương N cho trước. Dữ liêu vào: Từ file văn bản UOCNT.INP chứa một số nguyên dương. Kết quả: Ghi ra file văn bản UOCNT.OUT các ước số nguyên tố của số N đó, mỗi số cách nhau ít nhất một dấu cách.

garra252cualo21

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 9 xem

1 trả lời

Thích Trả lời

mynguyen5garmy

uses crt;
var f,f1:text;
n,i:longint;
scan:boolean;
begin
clrscr;
assign(f,'UOCNT.INP'); reset(f);
assign(f1,'UOCNT.OUT'); rewrite(f1);
readln(f,n);
scan:=false;
if n<2 then scan:=false;
for i:=2 to trunc(sqrt(n)) do if n mod i=0 then scan:=false;
scan:=true;
if n=0 then write('Co vo so uoc nguyen to')
else
i:=2;
for i:=2 to n-1 do
begin
if n mod i=0 then write(f1,i,' ');
end;
close(f);
close(f1);
readln;
end.

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

tn311001

uses crt;
var A: array [1..1000] of longint;
i, N,dem: longint;
f: text;
// hàm kiemtra có tác dụng check có phải là số nguyên tố hay không
function kiemtra(n: longint): boolean;
var i: longint;
begin
if (n <= 1) then kiemtra:= false
else if (n < 4) then kiemtra:= true
else
begin
kiemtra:= true; i:= 2;
while (i <= sqrt(n)) do
begin
if (n mod i = 0) then
begin

kiemtra:= false;
break;
end;
i := i + 1;
end;
end;
end;

procedure input();
begin
assign(f,'UOCNT.INP'); reset(f);
read(f,N); close(f);
end;

procedure output();
begin
assign(f,'UOCNT.OUT'); rewrite(f);
for i:= 1 to dem do
write(f,A[i],' ');
close(f);
end;

begin
input(); dem := 0;
// ngoài cách duyệt từng phần tử còn có thể dùng sàng nguyên tố (có thể tự tìm trên Google)
for i:= 2 to N do
if ((N mod i = 0) and kiemtra(i)) then
begin
dem:= dem + 1;
A[dem] := i;
end;
output();
end.

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

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

mô tả hiện tượng và viết phương trinnhf hóa học giải thích cho thí nghiệm sau nhỏ từ từ dung dịch hcl vào dung dịch na2co3

Cho các chất: KOH, Na2S, FeS, Cr2O3, Cu(OH)2. Hãy chọn ra một trong những chất trên cho tác dụng với dung dịch axit HCl để sinh ra: a) Dung dịch có màu xanh da trời: b) Dung dịch có màu xanh nhạt và có khí mùi trứng thối bay lên: c) Chất khí mùi trứng thối bay ra. d) Dung dịch không màu: e) Dung dịch có màu xanh lam: Viết các phương trình phản ứng xảy ra.

Bài 5: Cho dãy số: 6, 7, 9, 12, 16,….. Hỏi số 97 là số hạng thứ bao nhiêu của dãy?

Viết chữ Calligraphy: 9A2 Tone xanh dương Vẽ thường không vẽ trên app nhaaa

nêu cách sử dụng và cách vào của app medi bang paintpor

bài 2 sắp xếp các số sau theo thứ tự tăng dần.

Bài 3. Cho tam giác ABC vuông tại A có đường cao AH. Trên cạnh BC lấy điểm D sao cho BD = BA. a) Chứng minh: b) Chứng minh góc HAD + góc BDA =góc DAC +góc DAB . Từ đó suy ra AD là tia phân giác của góc HAC c) Vẽ DK vuông góc AC. Chứng minh tam giác AHK cân d) Chứng minh AB + AC < BC + AH

tả 1 đồ vật gần gũi với em và nêu tác dụng của nó khoảng 7- 8 câu thoy nha not mạng

p = $\frac{-\sqrt[]{x}-6}{\sqrt[]{x}+1}$ tìm x để p đạt gt nguyên lớn nhất

Tính nhanh 2 x 3 + 2x 2 + 2 x 5 = ???

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