Tin học Cho 1 số n bất kì, kiểm tra n có phải số nguyên ko 19/07/2021 By Delilah Cho 1 số n bất kì, kiểm tra n có phải số nguyên ko
program nguyen_to; uses crt; var n,i,d:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); d:=0; for i:=2 to n-1 do if n mod i=0 then d:=d+1; if d=0 then write(n,’ la so nguyen to’) else write(n,’ khong la so nguyen to’); readln; end. Trả lời
Ví dụ: N = 19 Kết quả là: 19 la so nguyen to N = 33 Kết quả là: 33 khong phai la so nguyen to Yêu cầu: Input: N, là số tự nhiên bất kỳ. Output: Trả lời “N la so nguyen to” hoặc “N khong phai la so nguyen to” tùy theo N. Lưu ý: Số nguyên tố là số chỉ có thể chia hết cho 1 và chính nó ( N ). Ngược lại, N là không phải là số nguyên ==> N chia hết cho một số trong khoảng từ 2 đến (N-1). áp dụng và làm ik xin hay nhất ạ ! @mun Trả lời
program nguyen_to;
uses crt;
var n,i,d:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
d:=0;
for i:=2 to n-1 do
if n mod i=0 then d:=d+1;
if d=0 then write(n,’ la so nguyen to’)
else write(n,’ khong la so nguyen to’);
readln;
end.
Ví dụ: N = 19 Kết quả là: 19 la so nguyen to
N = 33 Kết quả là: 33 khong phai la so nguyen to
Yêu cầu: Input: N, là số tự nhiên bất kỳ.
Output: Trả lời “N la so nguyen to”
hoặc “N khong phai la so nguyen to” tùy theo N.
Lưu ý: Số nguyên tố là số chỉ có thể chia hết cho 1 và chính nó ( N ).
Ngược lại, N là không phải là số nguyên ==> N chia hết cho một số trong khoảng từ 2 đến (N-1).
áp dụng và làm ik
xin hay nhất ạ !
@mun