Question

VCT pascal kiểm tra số n có phải là số nguyên tố không

VCT pascal kiểm tra số n có phải là số hoàn hảo không

VCT pascal kiểm tra số n xuất ra màn hình các số nguyên tố từ 2 đến n

Answer 1

1: VCT pascal kiểm tra số n có phải là số nguyên tố không

uses crt;

var n,i,kt:integer;

begin

clrscr;

repeat

write('nhap n='); readln(n);

if n<=1 then writeln('ban da nhap sai,yeu cau ban nhap lai');

until n>1;

kt:=0;

for i:=2 to n-1 do

if n mod i=0 then

begin

kt:=1;

break;

end;

if kt=0 then writeln(n,' la so nguyen to')

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

readln;

end.

2:VCT pascal kiểm tra số n có phải là số hoàn hảo không

uses crt;
var n,i,t:integer;
begin
clrscr;
write('nhap n:'); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then begin
t:=t+i;
end;
if t=n then writeln(n,' la so hoan hao')
else write(n,' khong la so hoan hao');
readln;
end.

3:VCT pascal kiểm tra số n xuất ra màn hình các số nguyên tố từ 2 đến n

uses crt;
var n,i,kt,j:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if n<=2 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until n>2;
writeln('day cac so nguyen to trong khoang tu 2 toi ',n,' la:');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.

Answer 2

1:

program b1;

ues crt;

var i,n,dem:longint;

procedure nhap(var n:longint);

begin

write('n=');readln(n);

end;

function NT(b:longint):boolean;

var dem,i:longint;

 

 

Answer 3

uses crt;
var n,i,t:integer;
begin
clrscr;
write('nhap n:'); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then begin
t:=t+i;
end;
if t=n then writeln(n,' la so hoan hao')
else write(n,' khong la so hoan hao');
readln;
end.