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

0 bình luận về “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”

1. 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$

   Bình luận

2. 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.

   Bình luận