Kiến thức phổ thông
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Kiến thức phổ thông

Bài tập toán học, văn học, anh văn, vật lý, hóa học, sinh học, tin học, lịch sử, địa lý, GDCD

Báo Mới Hàng Ngày


VI TÍNH AN BÌNH - 0919.185.184

DỊCH VỤ CHO THUÊ XE MÁY VŨNG TÀU 0908.191.134

Lập trình Pascal: Xác định tính nguyên tố của số nguyên dương N

Kiến thức phổ thông :: Môn Tin Học

Go down

Lập trình Pascal: Xác định tính nguyên tố của số nguyên dương N Empty Lập trình Pascal: Xác định tính nguyên tố của số nguyên dương N

Bài gửi by Admin Thu Feb 23, 2017 10:35 pm

Đề: Nhập vào số nguyên N. Xác định N có phải là số nguyên tố không?

Code:

program songuyento;
Var n,d,i:integer;
Begin
d:=0;
Writeln(‘nhap so N: ‘); readln(n);
For i:=1 to n div 2 do
If n mod i=0 then inc(d);
If d=2 then writeln(‘so vua nhap la so nguyen to!’)
Else writeln(‘so vua nhap khong phai la so nguyen to: ‘);
Readln;
End.

Admin
Admin

Tổng số bài gửi : 59
Join date : 09/12/2016

https://baitap.forumvi.com

Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

Kiến thức phổ thông :: Môn Tin Học

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết