In Ra Các Số Nguyên Tố | VN4000 PASCAL

Trang chủ » Viết Chương Trình Pascal In Ra Các Số Nguyên Tố » In Ra Các Số Nguyên Tố | VN4000 PASCAL

Có thể bạn quan tâm

VN4000 PASCAL

Lý thuyết và Bài tập Lập trình Pascal

  • Home
  • About us

Kiểm tra có phải số nguyên tố Chương trình đổi tiền

In ra các số nguyên tố

January 2, 2012

vn4000 Ví dụ và Bài tập lập trình Pascal Leave a comment

Chương trình In ra các số nguyên tố

Program So_Nguyen_To; Uses crt; Var n,i,t: integer; Begin Clrscr; Writeln(‘IN RA CAC SO NGUYEN SO <=N'); Write('Nhap n = ');readln(n); If n<2 then Writeln('Khong co so nguyen to nao <=',n)

Else Begin Writeln('Cac so nguyen to i ) ; If( t*t>i) then Write(i:4); End; End; Readln;

End.

Share this:

  • Facebook
  • X
Like Loading...

Related

Comments are closed.

Kiểm tra có phải số nguyên tố Chương trình đổi tiền

Tìm kiếm

Bài viết mới

  • Bài 29 FULL SCREEN cho DOSBOX
  • Bài 28 Runtime Error 200
  • Bài 27 Một Số Hàm Số
  • Bài 26 Cấu trúc rẽ nhánh và lựa chọn phần 3
  • Bài 25 Cấu trúc rẽ nhánh và lựa chọn phần 2

Danh mục

  • Lý thuyết lập trình Pascal
  • Ví dụ và Bài tập lập trình Pascal

Blog at WordPress.com.

Privacy & Cookies: This site uses cookies. By continuing to use this website, you agree to their use. To find out more, including how to control cookies, see here: Cookie Policy
  • Reblog
  • Subscribe Subscribed
    • VN4000 PASCAL
      • Sign me up
    • Already have a WordPress.com account? Log in now.
    • VN4000 PASCAL
    • Subscribe Subscribed
    • Sign up
    • Log in
    • Copy shortlink
    • Report this content
    • View post in Reader
    • Manage subscriptions
    • Collapse this bar
%d Design a site like this with WordPress.comGet started

Từ khóa » Viết Chương Trình Pascal In Ra Các Số Nguyên Tố