Viết chương trình kiểm tra xem số đó có phải là số nguyên tố không? Bằng pascal
2 câu trả lời
program kiem_tra;
uses crt;
var n,i: integer;
ok: boolean;
begin
clrscr;
ok:=true;
write('nhap n:'); readln(n);
for i:=2 to n-1 do if n mod i=0 then
ok:=false;
if ok then writeln('n la so nguyen to')
else
writeln('n khong la so nguyen to');
readln
end.
Program SNT;
Uses crt;
Var n , i :Integer; // Khai bao bien su dung
BEGIN
Write(‘Nhap vao mot so:’); // Thong bao nhap lieu Readln(n); // Nhap gtri N, (voi &N la lay d/c bien N) i := round( sqrt(n) ); If( n mod i <> 0) then // Xuat cau tra loi cuoi cung Writeln(‘ N la so nguyen to’) Else Writeln(‘ 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
