USES crt;
VAR n, i: INTEGER;
BEGIN
clrscr;
write('Nhap vao mot so nguyen: '); readln(n);
IF n<=1 THEN writeln(n,'khong la so nguyen to')
ELSE
BEGIN
i:=2;
WHILE (n MOD i <> 0) DO i:= i+1;
IF i = n THEN writeln(n,'la so nguyen to !')
ELSE writeln(n,'khong phai la so nguyen to!');
END;
readln
END.
Download: http://www.mediafire.com/?nk4k4ynkhf9b41g
VAR n, i: INTEGER;
BEGIN
clrscr;
write('Nhap vao mot so nguyen: '); readln(n);
IF n<=1 THEN writeln(n,'khong la so nguyen to')
ELSE
BEGIN
i:=2;
WHILE (n MOD i <> 0) DO i:= i+1;
IF i = n THEN writeln(n,'la so nguyen to !')
ELSE writeln(n,'khong phai la so nguyen to!');
END;
readln
END.
Download: http://www.mediafire.com/?nk4k4ynkhf9b41g