Question

vết chương trình nhập vào số n,kiể tra n có phải là số nguyên tố hay không?

sử dụng while....do

 

Answer 1

Var  n, i : integer;

     Begin

          write(‘Nhập số n = ‘);

          readln(n);

          i := 2;

          while  (n  mod  i <> 0) and (i < n)  do

              i := i + 1;

          if  i < n  then  write(n, ‘ là số nguyên tố.’)

          else  write(n, ‘ là hợp.’)

          readln;

     End.

Answer 2

uses crt;

var i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

i:=1;

while i<=n do 

  begin

if n mod i=0 then inc(dem);

i:=i+1;

end;

if dem=2 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.