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
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
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.
uses crt;
var n,i,s,d:longint;
kt:boolean;
begin
clrscr;
write(‘Nhap so co 4 chu so: ‘); readln(n);
for i:=1 to n do if n mod 2=0 then kt:=true;
if kt=true then writeln(n,’ la so chan’)
else kt:=false;
if kt=false then writeln(n,’ la so le’);
if n<2 then write(n,’ khong phai la so nguyen to’);
for i:=2 to n do if n mod i=0 then inc(d);
if d=2 then kt:=true
else kt:=false;
if kt=true then writeln(n,’ la so nguyen to’)
else if kt=false then writeln(n,’ khong la so nguyen to’);
for i:=1 to n div 2 do if n mod i=0 then inc(s,i);
if s=n then
begin
kt:=true;
writeln(n,’ la so hoan hao’);
end
else
begin
kt:=false;
if kt=false then writeln(n,’ khong la so hoan hao’);
exit;
end;
readln;
end.