Tìm hiểu chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải là một số nguyên tố hay không. a. Đọc và tìm ý nghĩa từng câu lệnh b. Gõ, dịch và chạy thử chương trình

1 câu trả lời

program kaito;

uses crt;

var n, i: integer;

begin

   clrscr;

   write('Nhap so N: '); readln(n);

   if n<2 then writeln('Day khong phai so nguyen to') else

   while n mod i <> 0 do inc(i);

      begin

         if i=n then writeln('Day la so nguyen to') 

         else writeln('Day khong phai so nguyen to');

      end;

   readln

end.

CHÚC BẠN HỌC TỐT!!!