tìm hiểu chương trình nhận bik một số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố hay không với in họ tên lớp của mình ra.

0 bình luận về “tìm hiểu chương trình nhận bik một số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố hay không với in họ tên lớp của mình ra.”

1. bạn xem trong hình nha

   mình mới thi xong đó

   Program so_nguyen_to

   Uses crt;

   var i,n,dem:Integer;

         

   Begin

   Clrscr;

   writeln(‘……………………’);      (viết họ tên bạn vào chỗ chấm chấm là xong, cách này đơn giản hơn phải hong?>.<)

   write(‘Nhap so nguyen duong n’);

   ReadLn(n);

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

   if (n<2) or (dem<>2) then writeln(n,’ khong phai la so nguyen to’) Elseif dem=2 then writeln(n,’ la so nguyen to’);

   Readln.

   End.

   

   Bình luận

2. Program so_nguyen_to

   Uses crt;

   var i,n,dem:Integer;

   Begin

   ClrScr;

   write(‘Nhap so nguyen duong n’);

   ReadLn(n);

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

   if (n<2) or (dem<>2) then writeln(n,’ khong phai la so nguyen to’) Elseif dem=2 then writeln(n,’ la so nguyen to’);

   Readln

   End.

   Bình luận