Nhập vào 1 số nguyên gồm 4 chữ số: Kiểm tra tính chẵn lẻ Kiểm tra xem có phải là số nguyên tố không Kiểm tra xem có phải là số hoàn hảo không

huatrang558

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

nn0350227

uses crt;

var n,i:integer;

ok:boolean;

BEGIN

clrscr;

write('Nhap n: '); readln(n);

if n mod 2=0 then writeln('So ',n,' la so chan')

else writeln('So ',n,' la so le');

if n<2 then write('So ',n,' khong la so nguyen to')

else

begin

ok:=true;

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then

ok:=false;

if ok then

writeln('So ',n,' la so nguyen to')

else

writeln('So ',n,' khong la so nguyen to');

end;

readln;

END.

$Cho$ $mk$

5 sao + câu trả lời hay nhất + cảm ơn nha !

$#Xuka$

Vote (0) Phản hồi (0) 2 năm trước

minhrua0908

uses crt;
var n,i,s:integer;

ok:boolean;
BEGIN
clrscr;
write('Nhap n: ');readln(n);
if n mod 2=0 then writeln('So ',n,' la so chan')
else writeln('So ',n,' la so le');
if n<2 then write('so ',n,' khong phai la so nguyen to');
else
begin
ok:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then ok:=false;
if ok then writeln('So ',n,' la so nguyen to')
else writeln('So ',n,' khong phai la so nguyen to');
end;

for i:=1 to n-1 do

if n mod i=0 then s:=s+i;

if s=n then writeln (n,' la so hoan hao')

else writeln (n,' ko phai la so hoan hao');

readln;
END.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

giải hệ phương trình : 9x-6y=4 và 3(4x-3y)=-3x+y+7 3(x+1)+2y=-x và 5(x+y)=-3x+y-5 2(2x+3y)=3(2x-3y)+10 và 4x-3y=4(6y-2x)+3

Phi kim X là chất khí ở nhiệt độ thường màu vàng lục mùi hắc.Y và Z là các oxit của X có phần trăm khối lượng oxi tương ứng là 18,39% và 47,41%.Tìm X,Y,Z và hoàn thành các pt sau: 1) X+H2O-> ...+Y 2) Y->X+Z 3) Y+H2O->... 4)Y+ NaOH->...+H2O 5) Z+ ...->X + H2O

mn cứu em với em đang cần gấp ạ

Viết chương trình nhập vào độ dài các cạnh của tam giác rồi tính chu vi, diện tích, 3 đường cao của tam giác. Kiểm tra xem tam giác đó có phải là tam giác cân hay tam giác vuông không

Vẽ anime or chibi (chỉ cần chọn 1 cái hoi, 2 cái cũng đc :3) Vẽ đẹp vào nhoa mí pác iu~ Hóng~

-Ví dụ về 1 số đại diện thuộc nhóm tế bào nhân sơ. -Các bào quan trong tế bào động- thực vật

mn giúp em giải bài này gấp với ạ em cảm mơn

Tìm số nguyên x,n biết 7.x chia hết cho 3 -22 chia hết cho n 5.x chia hết cho -2 8 chia hết cho n -16 chia hết cho n-1 x+19 chia hết cho 18 9 chia hết cho n+1 x-18 chia hết cho 17 4x-5 chia hết cho x n+5 chia hết cho n-1

Cho n điểm phân biệt, trong đó không có 3 điểm thẳng hàng, kẻ các đường thẳng đi qua các cặp điểm. Hỏi có bao nhiêu đường thẳng phân biệt?

Viết đoạn văn nghị luận về vấn đề ô nhiễm không khí ở đới ôn hòa (tầm 15 dòng ạ)

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến