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!!!