cho dãy số 1,2,3…..100 viết chương trình kiểm tra có bn số nguyên tố?(viết bằng pascal)
cho dãy số 1,2,3-.100 viết chương trình kiểm tra có bn số nguyên tố?(viết bằng pascal)
By Kinsley
By Kinsley
cho dãy số 1,2,3…..100 viết chương trình kiểm tra có bn số nguyên tố?(viết bằng pascal)
uses crt;
function snt(n: integer): boolean;
var i: integer;
begin
If (n=0) or (n=1) or (n=2) or (n=3) then
snt:=false;
if n>=4 then
Begin
i:=1;
Repeat
i:=i+1;
Until (n mod i=0) or (i*i>n);
If i*i>n then
begin
snt:=true;
end
Else
snt:=false;
End;
end;
var k,d: integer;
begin
clrscr;
for k:=1 to 100 do
if snt(k)=true then d:=d+1;
writeln (‘co ‘,d,’ so nguyen to trong day tu 1 den 100′);
readln;
end.
mình dùng phương pháp tạo hàm nên bạn tham khảo nhé !!!
꧁༺cao thủ paѕcal✔ツ