VCT nhập số nguyên dương n in ra màn hình n có phải là số nguyên tố hay k??

0 bình luận về “VCT nhập số nguyên dương n in ra màn hình n có phải là số nguyên tố hay k??”

1. Program so_nguyen_to;

   Uses Crt;

   Var n,i:integer;

   Begin

   Clrscr;

   Writeln (‘Nhap vao mot so nguyen duong:’);

   readln (n);

   If n<=1 then writeln (‘N khong pha la so nguyen to’)

   Else

   begin

   i:=2;

   while (n mod i<>0) do i:=i+1;

   if i=n then writeln (n,’la so nguyen to’)

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

   end;

   readln;

   End.

   Cho mình xin  CTLHN nha. Chúc bạn học tốt

   Bình luận

2. Program abc;

   uses crt;

   var i,s,n : longint;

   begin

    clrscr;

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

    if n<=0 then exit;

    for i:=1 to n do if n mod i = 0 then s:=s+1;

    if s=2 then write(‘Day la so nguyen to’) else write(‘Day khong phai la so nguyen to’);

   readln 

   end.

   Bình luận