Viết Chương Trình Kiểm Tra Số Siêu Nguyên Tố Trong Pascal Và Xuất Ra ...

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

hieule54125
Chưa có nhóm

Trả lời
17
Điểm
115
Cảm ơn
6

Tin Học
Lớp 8
20 điểm
hieule54125 - 09:25:27 04/02/2022

Viết chương trình kiểm tra số siêu nguyên tố trong pascal và xuất ra kết quả. VD: 23333 là số siêu nguyên 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

04/02/2022

uses crt;const lim = trunc(1e6);var n: longint; p: array[0..lim] of boolean;procedure sieve(n: longint);var i, j: longint;begin for i:=2 to trunc(sqrt(n)) do if not p[i] then for j:=i to n div i do p[j * i]:=true;end;function check(n: longint): boolean;var bool: boolean;begin if p[n] then exit(false); while n <> 0 do begin if p[n] = false then begin bool:=true; n:=n div 10; end else exit(false); end; exit(bool);end;beginclrscr; readln(n); sieve(lim); writeln(check(n));readln;end.

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

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar2starstarstarstarstar1 voteGửiHủy

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

- minhphuongle682
- Chưa có nhóm
- Trả lời
  0
- Điểm
  100
- Cảm ơn
  0
bạn thử với số 13 xem nó không phải là số siêu nguyên tố mà

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

lamsauday246
Chưa có nhóm

Trả lời
1458
Điểm
4161
Cảm ơn
1188

lamsauday246

04/02/2022

uses crt;var kt,i,t:longint;n:int64;function NT(a:longint):boolean;var dem,i:longint; begin dem:=0; for i:=1 to a do if(a mod i=0)then inc(dem); NT:=dem=2; end;begin clrscr; write('nhap n:');readln(n); while(n<>0)and(kt=1)do begin t:=n mod 10; if(not(NT(t)))then kt:=0; n:=n div 10; end; if(kt=1)then write('n la so sieu nguyen to')else write('n khong la so sieu nguyen to'); readlnend.

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

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar1starstarstarstarstar1 voteGửiHủy

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

- lamsauday246
- Chưa có nhóm
- Trả lời
  1458
- Điểm
  4161
- Cảm ơn
  1188
https://hoidap247.com/cau-hoi/3774043
- phanthaihai
- Chưa có nhóm
- Trả lời
  452
- Điểm
  72
- Cảm ơn
  396
Bài này sai r, vd nhập 184 vẫn in là số siêu nguyên tố
- lamsauday246
- Chưa có nhóm
- Trả lời
  1458
- Điểm
  4161
- Cảm ơn
  1188
ok để sửa lại