viết chương trình nhập vào N số nguyên kiểm tra xem N có là số nguyên tố

0 bình luận về “viết chương trình nhập vào N số nguyên kiểm tra xem N có là số nguyên tố”

1. program Tin_hoc;

   uses crt;

   var i,n,k:integer;

   begin

   clrscr;

   write(‘N=’);readln(n);

   k:=0;

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

   if k=2 then writeln(n,’ la so nguyen to’) else writeln(n,’ khong phai la so nguyen to’);

   readln;

   end.

   CHO MIK CÂU TLHN NHA

   Bình luận

2. uses crt;
   var n,i,dem:longint;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      if n mod i = 0 then inc(dem);
      if dem=2 then write(n,’ la so nguyen to’) else write(n, ‘ khong phai la so nguyen to’);
      readln
   end.

   Bình luận