Bài 1: Đếm các số chia hết cho 3 từ 1 đến 50. Bài 2: Nhập vào một số nguyên N. Kiểm tra N có phải là số nguyên tố hay ko? Viết chương trình, giải chi

0 bình luận về “Bài 1: Đếm các số chia hết cho 3 từ 1 đến 50. Bài 2: Nhập vào một số nguyên N. Kiểm tra N có phải là số nguyên tố hay ko? Viết chương trình, giải chi”

1. Bài 1:

   Program thichvaydo;

   Uses crt;

   Var dem,i: byte ;

   Begin

   Clrscr;

   For i:=1 to 50 do

   If i mod 3 = 0 then inc(dem);

   Write(‘cac so chia het cho 3 tu 1 den 50 la’,dem);

   Readln

   End.

   Bài 2:

   Program dacony;

   Uses Crt;

   Var n,d,k:longint;

   Begin Clrscr;

   write(‘n=’);

   Readln(n);

   k:=0;

   For d:=1 to n do

   If n mod d = 0 then

   k:=k+1;

   If k=2 then

   write (‘n chinh la so nguyen to’);

   Readln;

   End.

   Bình luận

2. Bài 1:

   program chiahetcho3;

   uses crt;

   var i,d:word;

   begin

        clrscr;

        d:=0;

        for i:=1 to 50 do 

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

        write(‘Tu 1 den 50 co ‘,d,’ so chia het cho 3′);

        readln;

   end.

   Bài 2:

   program songuyento;

   uses crt;

   var n,i,d:integer;

   begin

        clrscr;

        write(‘Nhap so N can kiem tra: ‘);  readln(n);

        if n<2 then write(n,’ khong phai so nguyen to’)

        else

             begin

                  d:=0;

                  for i:=2 to n div 2 do

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

                  if d=0 then write(n,’ la so nguyen to’)

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

             end;

        readln;

   end.

   Bình luận