Lập Trình Pascal: Viết Chương Trình Kiểm Tra Một Số Có Phải Là Số ...

Trang chủ » Hàm Kiểm Tra Số Nguyên To Pascal » Lập Trình Pascal: Viết Chương Trình Kiểm Tra Một Số Có Phải Là Số ...

Có thể bạn quan tâm

Bài Kiểm Tra © 2020 Bài Kiểm Tra.com. All Rights Reserved. logo 1
  • Trang nhất
  • Tin học
Thứ tư, 11/03/2026, 03:48 Lập trình Pascal: Viết chương trình kiểm tra một số có phải là số nguyên tố và in ra 2019-12-08T23:36:03+07:00 Bài 1: Nhập vào một số nguyên không âm, kiểm tra xem nó có phải là số nguyên tố hay không?Bài 2: In ra các số nguyên tố nhỏ hơn hoặc bằng N (N là số nguyên không âm được nhập từ bàn phím). Lập trình Pascal, số nguyên tố hay không, các số nguyên tố nhỏ hơn hoặc bằng N https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg Bài Kiểm Tra Chủ nhật - 08/12/2019 23:34
  • In ra
Bài 1: Nhập vào một số nguyên không âm, kiểm tra xem nó có phải là số nguyên tố hay không?Bài 2: In ra các số nguyên tố nhỏ hơn hoặc bằng N (N là số nguyên không âm được nhập từ bàn phím). Bài 1: Nhập vào một số nguyên không âm, kiểm tra xem nó có phải là số nguyên tố hay không?

Program SO_NGUYEN_TO; Uses crt; Var i,n: integer; Begin Clrscr; Writeln('KIEM TRA SO NGUYEN TO:'); Writeln('---------------------------'); Write ('Nhap so can kiem tra n = '); readln(n); If (n=0) or (n=1) then Writeln(n,' Khong phai la so nguyen to') Else Begin i:=1; Repeat i:= i+1; Until (n mod i= 0) or (i*i>n); If i*i>n then Writeln (n,' la so nguyen to') Else Writeln (n,' khong phai la so nguyen to'); End; Readln; End.

Bài 2: In ra các số nguyên tố nhỏ hơn hoặc bằng N (N là số nguyên không âm được nhập từ bàn phím).

Program CAC_SO_NGUYEN_TO; Uses crt; Var n,i,t: integer; Begin Clrscr; Writeln('IN RA CAC SO NGUYEN SO <=N'); Writeln('--------------------------'); Write('Nhap n = ');readln(n); If n<2 then Writeln('Khong co so nguyen to nao <=',n) Else Begin Writeln('Cac so nguyen to <= ',n,' la:'); For i := 2 to n do Begin t:= 1; Repeat t:= t+1; Until ( i mod t = 0) or ( t*t>i ) ; If( t*t>i) then Write(i:4); End; Readln; End.

Tags: Lập trình Pascal

Ý kiến bạn đọc

Sắp xếp theo bình luận mới Sắp xếp theo bình luận cũ Sắp xếp theo số lượt thích

Theo dòng sự kiện

    /assets/news/2024_09/image-20240919121618-1.png Soạn Ngữ văn lớp 11 sách Chân trời sáng tạo, bài 1: Cõi lá

    /assets/news/2024_09/image-20240919121156-1.png Soạn Ngữ văn lớp 11 sách Chân trời sáng tạo, bài 1: Ai đã đặt tên cho dòng sông

Xem tiếp...

Những tin cũ hơn

    /assets/news/2019_11/bai-tap-lap-trinh-pascal.jpg Lập trình Pascal: Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các lập phương của các chữ số thì bằng chính số đó

    /assets/news/2019_11/bai-tap-lap-trinh-pascal.jpg Lập trình Pascal: Tính tổng giai thừa, lũy thừa

GIẢI BÀI TẬP
Lớp 1 Lớp 2 Lớp 3 Lớp 4 Lớp 5
Lớp 6 Lớp 7 Lớp 8 Lớp 9
Lớp 10 Lớp 11 Lớp 12
Bài học Bài soạn Bài giảng
Bài giới thiệu Bài hướng dẫn
Bài làm văn Bài trắc nghiệm
Kiểm tra 15P Kiểm tra 1 tiết
Kiểm tra HK1 Kiểm tra HK2
Thi vào lớp 10 Tốt nghiệp THPT
BÀI LUYỆN THI
Lớp 1 Lớp 2 Lớp 3 Lớp 4 Lớp 5
Lớp 6 Lớp 7 Lớp 8 Lớp 9
Lớp 10 Lớp 11 Lớp 12
Kiểm tra 15 phút Kiểm tra 1 tiết
Kiểm tra học kì 1 Kiểm tra học kì 2
Luyện thi theo Bài học
Luyện thi THPT Quốc Gia
THÀNH VIÊN Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site Nhập mã do ứng dụng xác thực cung cấp Thử cách khác Nhập một trong các mã dự phòng bạn đã nhận được. Thử cách khác Đăng nhập Đăng ký © 2020 Bàikiểmtra.com. All Rights Reserved. Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây

Từ khóa » Hàm Kiểm Tra Số Nguyên To Pascal