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

Gửi bài mới   Trả lời chủ đề này

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

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 on 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 : 56
Join date : 09/12/2016

Xem lý lịch thành viên http://baitap.forumvi.com

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


Gửi bài mới   Trả lời chủ đề này
 
Permissions in this forum:
Bạn được quyền trả lời bài viết