Nhập vào 1 số nguyên n , in ra màn hình xem số đó có phải số nguyên tố không ( sử dụng vòng lặp while-do ) 21/07/2021 Bởi Margaret Nhập vào 1 số nguyên n , in ra màn hình xem số đó có phải số nguyên tố không ( sử dụng vòng lặp while-do )
program nguyento_while; uses crt; var n,i:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); i:=2; while n mod i<>0 do i:=i+1; if i=n then write(n,’ la so nguyen to’) else write(n,’ khong phai so nguyen to’); readln; end. Bình luận
đây bạn
đã test
program nguyento_while;
uses crt;
var n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
i:=2;
while n mod i<>0 do
i:=i+1;
if i=n then write(n,’ la so nguyen to’)
else write(n,’ khong phai so nguyen to’);
readln;
end.