Tin học VCT kiểm tra xem n có phải là một siêu số nguyên tố hay không 24/07/2021 By Ivy VCT kiểm tra xem n có phải là một siêu số nguyên tố hay không
program so_nguyen_to; Uses crt; Var n:longint; function NT(x:longint):boolean; begin NT:=true; If x<2 then NT:=false else Begin i:=2; while n mod i<>0 do i:=i+1; If i=n then NT:=true else NT:=false; End; End; Function SNT(a:longint):boolean; Var d,so:longint; Begin SNT:=true; if NT(a) then Begin D:=1; so:=0; while a<>0 do Begin inc(so); a:=a div 10; if NT(a) then inc(d); End; If d=so then SNT:=true else SNT:=false; End else SNT:=false; end; Begin clrscr; write(‘Nhap so muon kiem tra: ‘); readln(n); If SNT(n) then write(n,’ la so sieu nguyen to’) else write(n,’ khong la so sieu nguyen to’); Readln; End. Trả lời
uses crt;var n, i, k, n1, n2: longint;function snt(n:longint):longint;begin for i:=1 to n-1 do begin if (n mod i = 0) then n:=1; if n mod i <> 0 then n:=2; if n=2 then n:=1; end;end;begin clrscr; write (‘nhap n: ‘); readln (n); n1:=n; k:=1; while n>0 do begin n:=n1 mod 10; n1:=n1 div 10; snt(n); if (n=2) and (k=1) then k:=1; if (n=1) then k:=2; end; if k=1 then writeln (‘day la 1 sieu so nguyen to’) else writeln (‘ko phai’); readln;end. Trả lời