KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Viết chương trình nhập 1 số và kiểm tra số đó có phải là số nguyên tố hay không
By Mary
Viết chương trình nhập 1 số và kiểm tra số đó có phải là số nguyên tố hay không
var i,n: longint; begin write(‘Nhap so i: ‘); readln(i); if ((i=1) or (i=0)) then writeln(‘Day khong phai la so nguyen to’) else begin for n:=2 to trunc(sqrt(i)) do if (i mod n = 0) then begin writeln(‘Day khong phai la so nguyen to’); break; end; if (n = trunc(sqrt(i))) then writeln(‘Day la so nguyen to’); end; readln end.
var i,n: longint;
begin
write(‘Nhap so i: ‘);
readln(i);
if ((i=1) or (i=0)) then writeln(‘Day khong phai la so nguyen to’)
else
begin
for n:=2 to trunc(sqrt(i)) do
if (i mod n = 0) then
begin
writeln(‘Day khong phai la so nguyen to’);
break;
end;
if (n = trunc(sqrt(i))) then writeln(‘Day la so nguyen to’);
end;
readln
end.
$\text{mong bạn cho mình câu trả lời hay nhất}$
$\text{uses crt;}$
$\text{var n,i:integer;}$
$\text{kt:boolean;}$
$\text{begin}$
$\text{clrscr;}$
$\text{writeln(‘nhap vao so n:’);}$
$\text{readln(n);}$
$\text{kt:true;}$
$\text{if n<2 then kt:=false;}$
$\text{for i:=2 to n-1 do}$
$\text{if n mod i=0 then kt:=false;}$
$\text{if kt then writeln(‘la so nguyen to’)else }$
$\text{writeln(‘khong phai la so nguyen to’);}$
$\text{readln}$
$\text{end.}$