Bài 1 : Viết chương trình tính N (Với N nhập từ bàn phím) Bài 2 : Viết chương trình kiểm tra số tự nhiên N có là số nguyên tố không (N nhập từ bàn phí

0 bình luận về “Bài 1 : Viết chương trình tính N (Với N nhập từ bàn phím) Bài 2 : Viết chương trình kiểm tra số tự nhiên N có là số nguyên tố không (N nhập từ bàn phí”

1. bài 1: program oken;uses crt;var n,s,i:longint;begin
   clrscr;write(‘nhap n: ‘); readln(n);for i:=1 to n do  s:=s*i;writeln(‘N!=’,s);readln;end.Bài 2:program ct;uses crt;var i,n:integer;beginclrscr;write(‘nhap n:=’);readln(n);if n<=1 then writeln(‘N khong la so nguyen to’) elsebegini:=2;while (n mod i<>0) do i:=i+1;if i=n then writeln(n,’ la so nguyen to’); elsewriteln(n,’khong la so nguyen to’);end;readlnend.

   Bình luận

2. Bài 1:

   program tinh_Tich;

   uses crt;

   var n,i:integer;

         tich:longint;

   begin

         clrscr;

         write(‘Nhap N: ‘);  readln(n);

         tich:=1;

         for i:=1 to n do tich:=tich*i;

         write(‘Tich cac so tu 1 den ‘,n,’ la: ‘,tich);

         readln;

   end.

   Bài 2:

   program nguyen_to;

   uses crt;

   var n,i,d:integer;

   begin

         clrscr;

         write(‘Nhap N: ‘);  readln(n);

         d:=0;

         for i:=1 to n do 

               if n mod i=0 then d:=d+1;

         if d=2 then write(‘La so nguyen to’)

               else write(‘Khong phai so nguyen to’);

         readln;

   end.

   Bình luận