viết chương trình nhập số n từ bàn phím , kiểm tra xem n có phải số nguyên tố hay k
2 câu trả lời
uses crt;
var i,n,dem:integer;
begin clrscr;
write('nhap so nguyen duong n =');
readln(n);
dem:=0;
for i:=1 to n do if n mod i=0 then dem:=dem+1;
if (n<2) or (dem<>2) then writeln(n, 'khong phai la so nguyen to') else if dem=2 then writeln(n, 'la so nguyen to');
readln
end.
Cho mình 5 sao + câu tl hay nhất nha <3
Program Hotboy ;
Uses crt;
Var n, i: integer;
Kt: boolean;
begin
Kt:=true;
Write('Nhap n tu ban phim : ');
Readln(n);
For i:= 2 to n - 1 do if ( n mod i = 0) then
Kt :=false;
If Kt then write(n,' la so nguyen to')
Else
Write(n, ' khong la so nguyen to');
Readln
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
