Viết chương trình xét xem một số n có phải là số nguyên tố không? ( pascal nghe )

0 bình luận về “Viết chương trình xét xem một số n có phải là số nguyên tố không? ( pascal nghe )”

1. ng dẫn:
   – Nếu n không chia hết mọi số i có giá trị từ 2 đến n – 1 thì n là số nguyên tố.
   – Sử dụng biến ok có kiểu boolean và có giá trị ban đầu là true.
   – Cho biến i chạy từ 2 đến n – 1. Xét n mod i. Nếu bằng 0 thì gán ok = false. Ngược
   lại vẫn để nguyên ok.
   b.Mã chương trình:
   Program Nguyen_to_1;
   uses crt;
   var n, i: integer;
    ok: boolean;
   begin
    ok:=true;
    write(‘Nhap n: ‘);readln(n);
    for i:= 2 to n – 1 do if n mod i = 0 then
    ok :=false;
    if ok then write(n,’ la so nguyen to’)
    else write(n, ‘ khong la so nguyen to’);
    readln
   end

   Bình luận

2. Uses crt;
   Var N,i,d : Word;
   Begin
           If N<2 Then Writeln(N,’ khong phai la so nguyen to’)
          Else
            Begin
              d:=0;
              For i:=2 To N div 2 Do
              If N MOD i=0 Then
             d:=d+1;
             If d=0 Then Writeln(N,’ la so nguyen to’)
            Else Writeln(N,’ khong phai la so nguyen to’);
          End;
   Readln;
   End.

   $\text{#Mong câu trả lời hay nhất ạ}$
   $\text{#Chúc bạn học tốt nha}$
   $\text{@Vân}$

   Bình luận