Đăng nhập để hỏi chi tiết
139
82
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Program SNT;
Uses crt;
Var n , i :Integer;
BEGIN
Write(‘Nhap vao mot so:’);
Readln(n);
i := round( sqrt(n) );
If( n mod i <> 0) then
Writeln(‘ N la so nguyen to’)
Else
Writeln(‘ N khong la so nguyen to’);
Readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
`=>` Tặng bạn
Program songuyento;
Var
n,d,m:longint;
Begin
Clrscr;
write('n=');
Readln(n);
n:=0;
For d:=1 to n do
If n mod d = 0 then
m:=m+1;
If m=2 then
write ('n la so nguyen to');
Readln;
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin