Lập Trình đơn Giản - Hoc24
Có thể bạn quan tâm
HOC24
Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng- Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn
Lớp học
- Lớp 12
- Lớp 11
- Lớp 10
- Lớp 9
- Lớp 8
- Lớp 7
- Lớp 6
- Lớp 5
- Lớp 4
- Lớp 3
- Lớp 2
- Lớp 1
Môn học
- Toán
- Vật lý
- Hóa học
- Sinh học
- Ngữ văn
- Tiếng anh
- Lịch sử
- Địa lý
- Tin học
- Công nghệ
- Giáo dục công dân
- Tiếng anh thí điểm
- Đạo đức
- Tự nhiên và xã hội
- Khoa học
- Lịch sử và Địa lý
- Tiếng việt
- Khoa học tự nhiên
- Hoạt động trải nghiệm
- Hoạt động trải nghiệm, hướng nghiệp
- Giáo dục kinh tế và pháp luật
Chủ đề / Chương
Bài học
HOC24
Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng - Lớp 8
- Tin học lớp 8
Chủ đề
- Chủ đề A: Máy tính và cộng đồng
- Chủ đề C: Tổ chức lưu trữ, tìm kiếm và trao đổi thông tin
- Chủ đề D: Đạo đức, pháp luật và văn hóa trong môi trường số
- Chủ đề E: Ứng dụng tin học
- E1: Xử lí và trực quan hóa dữ liệu bằng bảng tính điện tử
- E2: Soạn thảo văn bản và phần mềm trình chiếu nâng cao
- E3: Làm quen với phần mềm chỉnh sửa ảnh
- Chủ đề F: Giải quyết vấn đề với sự trợ giúp của máy tính
- Chủ đề G: Hướng nghiệp với tin học
- CHỦ ĐỀ 1: MÁY TÍNH VÀ CỘNG ĐỒNG
- CHỦ ĐỀ 2: TỔ CHỨC LƯU TRỮ, TÌM KIẾM VÀ TRAO ĐỔI THÔNG TIN
- CHỦ ĐỀ 3: ĐẠO ĐỨC VÀ VĂN HÓA TRONG SỬ DỤNG CÔNG NGHỆ KĨ THUẬT SỐ
- CHỦ ĐỀ 4: ỨNG DỤNG TIN HỌC
- CHỦ ĐỀ 5: GIẢI QUYẾT VẤN ĐỀ VỚI SỰ TRỢ GIÚP CỦA MÁY TÍNH
- CHỦ ĐỀ 6: HƯỚNG NGHIỆP VỚI TIN HỌC
- CHỦ ĐỀ 1. MÁY TÍNH VÀ CỘNG ĐỒNG
- CHỦ ĐỀ 2. TỔ CHỨC LƯU TRỮ, TÌM KIẾM VÀ TRAO ĐỔI THÔNG TIN
- CHỦ ĐỀ 3. ĐẠO ĐỨC, PHÁP LUẬT VÀ VĂN HÓA TRONG MÔI TRƯỜNG SỐ
- CHỦ ĐỀ 4. ỨNG DỤNG TIN HỌC
- a. Soạn thảo văn bản và trình chiếu nâng cao
- b. Làm quen với phần mềm chỉnh sửa ảnh
- CHỦ ĐỀ 5. GIẢI QUYẾT VẤN ĐỀ VỚI SỰ TRỢ GIÚP CỦA MÁY TÍNH
- CHỦ ĐỀ 6. HƯỚNG NGHIỆP VỚI TIN HỌC
- Lập trình đơn giản
- Phần mềm học tập
- Ôn tập cuối năm
- Lý thuyết
- Trắc nghiệm
- Giải bài tập SGK
- Hỏi đáp
- Đóng góp lý thuyết
Câu hỏi
Hủy Xác nhận phù hợp
- Trần Minh Hoàng
-
Số siêu nguyên tố
Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tuỳ ý các chữ số bên phải của nó thì phần còn lại vẫn tạo thành một số nguyên tố.
Ví dụ 7331 là một số siêu nguyên tố có 4 chữ số vì 733, 73, 7 cũng là các số nguyên tố.
Nhiệm vụ của bạn là viết chương trình nhập dữ liệu vào là một số nguyên N (0< N <10) và đưa ra kết quả là một số siêu nguyên tố có N chữ số cùng số lượng của chúng.
Lớp 8 Tin học Lập trình đơn giản 3 1
Gửi Hủy 
Nguyễn Lê Phước Thịnh CTV 
7 tháng 8 2020 lúc 10:30 uses crt; var n,i,kt,dem:integer; x,y,m,b:int32; st,st1,st2,st3:shortstring; {-------------chuong-trinh-con-kiem-tra-so-nguyen-to-----------------------} function ktnt(var x:longint):integer; var kt,i,kt1,j:integer; begin kt:=0; for i:=2 to trunc(sqrt(x)) do if x mod i=0 then begin kt:=1; break; end; if kt=0 then ktnt:=1 else ktnt:=0; end; {-------------------------------------------} begin clrscr; write('Nhap n='); readln(n); st1[1]:='1'; for i:=2 to n do st1[i]:='0'; st:=''; for i:=1 to n do st:=st+st1[i]; val(st,x); for i:=1 to n do st2[i]:='9'; st3:=''; for i:=1 to n do st3:=st3+st2[i]; val(st3,y);
dem:=0; for m:=x to y do {-----------------------------------------------} begin begin b:=m; repeat kt:=ktnt(b); if kt=0 then break else b:=b div 10; until b<10; if (ktnt(b)=1) and (b>1) then
begin
write(m,' ');
inc(dem);
end; end; end;
writeln;
writeln('Co ',dem,' so sieu nguyen to co ',n,' chu so'); {-------------------------------------------------} readln; end.
Đúng 0 Bình luận (0) Gửi Hủy 
Minh Lệ 
11 tháng 8 2020 lúc 21:06 Program HOC24;
var n: byte;
dem: integer;
i,x,x1: longint;
function nt(b: longint): boolean;
var j: longint;
begin
nt:=true;
if (b=2) or (b=3) then exit;
nt:=false;
if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(b)) do
begin
if (b mod j=0) or (b mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
function snt(a: longint): boolean;
var d,d1: byte;
begin
d:=0; d1:=0;
while a<>0 do
begin
if nt(a) then d:=d+1;
d1:=d1+1;
a:=a div 10;
end;
if d1=d then snt:=true else snt:=false;
end;
begin
write('Nhap so N: '); readln(n);
case n of
1: begin x:=1; x1:=9; end;
2: begin x:=10; x1:=99; end;
3: begin x:=100; x1:=999; end;
4: begin x:=1000; x1:=9999; end;
5: begin x:=10000; x1:=99999; end;
6: begin x:=100000; x1:=999999; end;
7: begin x:=1000000; x1:=9999999; end;
8: begin x:=10000000; x1:=99999999; end;
9: begin x:=100000000; x1:=999999999; end;
end;
dem:=0;
for i:=x to x1 do
if nt(i) then
if snt(i) then
begin
write(i,' ');
inc(dem);
end;
writeln;
write('Tat ca co ',dem,' so');
readln
end.
Đúng 0 Bình luận (0) Gửi Hủy Trần Minh Hoàng 6 tháng 8 2020 lúc 21:45 Ví dụ khi chạy chương trình:
Nhap so N: 4
Cac so sieu nguyen to có 4 chu so la: 2333 2339 2393 2399 2939 3119 3137 3733 3739 3793 3797 5939 7193 7331 7333 7393
Tat ca co 16 so
Đúng 0 Bình luận (0) Gửi Hủy Các câu hỏi tương tự 
- Quỳnh Chi Nguyễn
Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tùy ý các chữ số bên phải của nó thì phần còn lại vẫn tạo thành một số nguyên tố.
Ví dụ 7331 là một số siêu nguyên tố có 4 chữ số vì 733, 73,7 cũng là các số nguyên tố
Viết chương trình nhập dữ liệu vào là một số nguyên N (10<N<=10^5) và đưa ra kết quả các số siêu nguyên tố nhỏ hơn N 
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0
- Ngô Thị Tân
Số siêu nguyên tố là số nguyên tố mà khi bỏ 1 số tùy ý các chứ số bên phải của nó thì phần còn lại vẫn tạo thành một số nguyên tố.
Ví dụ 7331 là một số siêu nguyên tố có 4 chữ số vì 733, 73, 7 cũng là các số nguyên tố. Dữ liệu: Vào từ tệp văn bản SNT.INP
Ghi giá trị của N (số chữ số của các số siêu nguyên tố).
Kết quả: Ghi ra tệp văn bản SNT.OUT
- Ghi các số siêu nguyên tố có N chữ số.
- Số lượng các số siêu nguyên tố.
Ví dụ:
SNT.INP | SNT.OUT |
4
| 2333 2339 2393 2399 2939 3119 3137 3733 3739 3793 3797 5939 7193 7331 7333 7393 Tat ca co 16 so
|
|
|
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0
- Quỳnh Chi Nguyễn
Nhập vào một số nguyên n . Kiểm tra xem nó có phải số siêu nguyên tố hay không. Ai giúp e vs ạ :(
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 2 0
- dinhnguyentuhuy
viết chương trình pascal nhập n thực hiện
dòng 1 xuất ra màn hình các chữ số của n
dòng 2 tổng các chữ số của n và xét xem tổng đó có phải là số nguyên tố không
dòng 3 các chữ số ở vị trí lẻ của n và tổng của chúng. Xét tổng đó có phải là số chính phương không
dòng 4 các chữ số ở vị trí chẵn của n và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không
dòng 5 số lớn nhất và số nhỏ nhất của n và tổng của hai số đó
Giúp với !!
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0
- Thiện
viết chương trình nhập vào số nguyên n, kiểm tra số đó có là số nguyên tố hay ko
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản Câu hỏi của OLM 2 1 - dinhnguyentuhuy
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0 - dinhnguyentuhuy
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 1
- Phan Đức Duy
Viết chương trình nhập vào một số nguyên N và thực hiện:
a. Số nguyên dương N có bao nhiêu chữ số?
b. Tính tổng các chữ số của N
c. In ra chữ số lớn nhất của N
*Yêu cầu: N là một số nguyên dương(N bé hơn hoặc bằng 109)
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 3 0
- Kamato Heiji
-
1. Viết chương trình tính tổng các số nguyên tố từ 1 đến 100 2.Số nguyên dương P được gọi là ước thực sự của số nguyên n nếu n chia hết cho P và P khác 1 và khadc chính số n . Viết thuật toán và chương trình nhập số tự nhiên n và tính tổng của nó
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 3 0Khoá học trên OLM (olm.vn)
- Toán lớp 8 (Kết nối tri thức với cuộc sống)
- Toán lớp 8 (Cánh Diều)
- Toán lớp 8 (Chân trời sáng tạo)
- Ngữ văn lớp 8 (Kết nối tri thức với cuộc sống)
- Ngữ văn lớp 8 (Cánh Diều)
- Ngữ văn lớp 8 (Chân trời sáng tạo)
- Tiếng Anh lớp 8 (i-Learn Smart World)
- Tiếng Anh lớp 8 (Global Success)
- Khoa học tự nhiên lớp 8 (Kết nối tri thức với cuộc sống)
- Khoa học tự nhiên lớp 8 (Cánh diều)
- Khoa học tự nhiên lớp 8 (Chân trời sáng tạo)
- Lịch sử và địa lý lớp 8 (Kết nối tri thức với cuộc sống)
- Lịch sử và địa lý lớp 8 (Cánh diều)
- Lịch sử và địa lý lớp 8 (Chân trời sáng tạo)
- Giáo dục công dân lớp 8 (Kết nối tri thức với cuộc sống)
- Giáo dục công dân lớp 8 (Cánh diều)
- Giáo dục công dân lớp 8 (Chân trời sáng tạo)
- Công nghệ lớp 8 (Kết nối tri thức với cuộc sống)
Khoá học trên OLM (olm.vn)
- Toán lớp 8 (Kết nối tri thức với cuộc sống)
- Toán lớp 8 (Cánh Diều)
- Toán lớp 8 (Chân trời sáng tạo)
- Ngữ văn lớp 8 (Kết nối tri thức với cuộc sống)
- Ngữ văn lớp 8 (Cánh Diều)
- Ngữ văn lớp 8 (Chân trời sáng tạo)
- Tiếng Anh lớp 8 (i-Learn Smart World)
- Tiếng Anh lớp 8 (Global Success)
- Khoa học tự nhiên lớp 8 (Kết nối tri thức với cuộc sống)
- Khoa học tự nhiên lớp 8 (Cánh diều)
- Khoa học tự nhiên lớp 8 (Chân trời sáng tạo)
- Lịch sử và địa lý lớp 8 (Kết nối tri thức với cuộc sống)
- Lịch sử và địa lý lớp 8 (Cánh diều)
- Lịch sử và địa lý lớp 8 (Chân trời sáng tạo)
- Giáo dục công dân lớp 8 (Kết nối tri thức với cuộc sống)
- Giáo dục công dân lớp 8 (Cánh diều)
- Giáo dục công dân lớp 8 (Chân trời sáng tạo)
- Công nghệ lớp 8 (Kết nối tri thức với cuộc sống)
Từ khóa » Thuật Toán Tìm Số Siêu Nguyên Tố Trong Pascal
-
Bài Tập Về Số Nguyên Tố, Số Siêu Nguyên Tố, Số Nguyên Tố Tương ...
-
Chủ đề: Số Siêu Nguyên Tố - Diễn Đàn Tin Học
-
Viết Chương Trình Kiểm Tra Số Siêu Nguyên Tố Trong Pascal Và Xuất Ra ...
-
Số Siêu Nguyên Tố
-
Số Nguyên Tố Là Gì? Số Siêu Nguyên Tố Là Gì?
-
Số Siêu Nguyên Tố - Super Prime Number - Thầy Quách Văn Lượm
-
Số Siêu Nguyên Tố Và Thuật Toán Trong Pascal - YouTube
-
Bài 1: Số Siêu Nguyên Tố (5 điểm)
-
Thuật Toán Tối ưu: Số Siêu Nguyên Tố | VFO.VN
-
NAAP18 Viết Chương Trình Nhập Vào Một... - Nỗi ám ảnh Pascal
-
Kiểm Tra Xem Số N Có Phải Số SIÊU Nguyên Tố Trong C - Dạy Nhau Học
-
Chương Trình Tìm Số Siêu Nguyên Tố Bị Sai - Programming
-
Số Siêu Nguyên Tố Là Số - MTrend