Question

Bài 1: Viết chương trình pascal nhập vào 1 số n từ bàn phím. Nếu n \(\ge\) 2 hãy đi kiểm tra xem n có phải là số nguyên tố không? Còn n < 2 hãy yêu cầu nhập lại n.

Answer 1

uses crt;

var n,i:longint;

kt:boolean;

begin

clrscr;

readln(n);

if (n<2) then writeln('Nhap lai')

else 

begin

kt:=true;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then

begin

kt:=false;

break;

end;

if kt=true then writeln('la so nguyen to')

else writeln('khong la so nguyen to');

end;

readln;

end.