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

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

Về Đầu Trang


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