Kiểm tra một số có phải là số siêu nguyên tố hay không, số siêu nguyên tố mỗi chữ sô bất kì của nó là số nguyên tố
Có thể nêu cách làm cũng được, có cách nào ngắn không thì cho em biết với!
Kiểm tra một số có phải là số siêu nguyên tố hay không, số siêu nguyên tố mỗi chữ sô bất kì của nó là số nguyên tố
Có thể nêu cách làm cũng được, có cách nào ngắn không thì cho em biết với!
uses crt;
var n,kt:longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>1)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
write(‘n=’);readln(n);
repeat
if not(nt(n mod 10)) then kt:=1;
n:=n div 10;
until n=0;
writeln(kt=0);
readln
end.
Đề bài nó có sẵn cách làm luôn rồi đó cậu. Ấy! Mà trả lời như thế thì chết người.
Muốn biết mỗi chữ số bất kì của nó là số nguyên tố hay không, phải kiểm tra nguyên tố trước, số nguyên tố là số chỉ có một và chính nó,chỉ cần chạy từ 2 đến n/2 và tăng đếm, nếu đếm+1=2 thì đó là số nguyên tố
Bây giờ, input ta nhập sẽ là dạng xâu đi ha, mỗi kí tự trong xâu nếu nó là số nguyên tố thì tăng dem, nếu dem=độ dài xâu thì trả kết quả true
Code tham khảo:
Repeat
inc(i);
inc(s[i],k) // k là kí tự xâu s
if nt(k) then kt:=1 else kt=0; // 0 là false, 1 là true
Until i=length(s);
Phải nhớ tạo ctc nguyên tố trước nha
Khuyến mãi cho cậu nè ^^
Function nt(n:longint):boolean;
Var i:longint;
Begin
if n<2 then nt:=false else
begin
while n mod i<>0 do inc(i); // nếu sai thì cậu đổi giúp tớ thành i mod n<>0 nha, cho chắc thôi
nt:=i=n;
end; end;
và function siêu nguyên tố, sau này có làm chỉ cần khai báo một lần cho gọn, thật ra còn một cách, đó là dùng div mod, cái này khá dễ, cậu lên google nha
~
function snt(n:int64):boolean;
begin snt:=true;
while (nt(n)) do n:=n div 10;
if n<>0 then snt:=false;
end;
end;