Chỉ Cần Viết Hàm Kiểm Tra Số Siêu Nguyên Tố Viết Chương Trình Càng Tốt

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

haaaaaaaaaaaa12
Chưa có nhóm

Trả lời
0
Điểm
18
Cảm ơn
0

Tin Học
Lớp 11
10 điểm
haaaaaaaaaaaa12 - 15:41:24 27/04/2021

Chỉ cần viết hàm kiểm tra số siêu nguyên tố Viết chương trình càng tốt

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

manhquang0306
team IQ vô cực

Trả lời
2289
Điểm
45102
Cảm ơn
1741

manhquang0306

03/07/2021

Pascal:

uses crt;var n:longint;function isPrimeNumber(a:longint):boolean;var i:longint;begin if a<2 then exit(false); for i:=2 to trunc(sqrt(a)) do if a mod i=0 then exit(false); exit(true);end;function isSpecialPrime(n:longint):boolean;begin while n<>0 do begin if isPrimeNumber(n)=false then exit(false); n:=n div 10; end; exit(true);end;beginclrscr; readln(n); if isSpecialPrime(n) then write('true') else write('false');readlnend.

C++:

#include<bits/stdc++.h>using namespace std;bool isPrimeNumber(int a) { if (a<2) return false; for (int i=2;i<=sqrt(a);i++) { if (a%i==0) return false; } return true;}bool isSpecialPrime(int n) { while (n!=0) { if (isPrimeNumber(n)==false) { return false; } n/=10; } return true;}int main() { int n; cin>>n; if (isSpecialPrime(n)) { cout<<"true"; } else { cout<<"false"; }}

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy

Cảm ơn 2
Báo vi phạm

Đăng nhập để hỏi chi tiết avatar

nguyenminhquan15
Chưa có nhóm

Trả lời
2863
Điểm
41637
Cảm ơn
21146

nguyenminhquan15

27/04/2021

program sieu_nguyen_to;

var n:integer;

{---Ham-nguyen-to---}

function ktnt(k:integer):boolean;

var e:integer;

begin

ktnt:=false;

if k<2 then exit;

for e:=2 to trunc(sqrt(k)) do

if k mod e=0 then exit;

ktnt:=true;

end;

{---Ham-sieu-nguyen-to---}

function ktsnt(x:integer):boolean;

begin

ktsnt:=false;

while x>0 do

begin

if ktnt(x)=false then exit;

x:=x div 10;

end;

ktsnt:=true;

end;

{---Chuong-trinh-chinh---}

BEGIN

clrscr;

write('Nhap so can kiem tra: '); readln(n);

if ktsnt(n) then write('Yes') else write('No');

readln;

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy