Program hotrotinhoc;

var j,n: integer;

function k(x: integer): boolean;

var i: integer;

begin

k:=true;

if (x=2) or (x=3) then exit;

k:=false;

if (x mod 2=0) or (x mod 3=0) or (x=1) then exit;

i:=5;

while (i<=trunc(sqrt(x))) do

begin

if (x mod i=0) or (x mod (i+2)=0) then exit;

i:=i+6;

end;

k:=true;

end;

begin

readln(n);

if k(n) then writeln('N la so nguyen to') else writeln('N khong phai la so nguyen to');

Writeln('Cac so nguyen to nho hon 9 la : ');

for i:=1 to 9 do if k(i) then write(i,' ');

readln

end.

Lập chương trình Pascal để in bảng cửu chương ra màn hình.

Mọi người giúp em với :<<

Program nguyento;

Uses Crt;

Var n,d,k:longint;

Begin Clrscr;

write('n=');

Readln(n);

k:=0;

For d:=1 to n do

If n mod d = 0 then

k:=k+1;

If k=2 then

write ('n la so nguyen to');

Readln;

End.

var n:integer;

a,d:word;

begin

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

if n <2 then writeln(n,' khong phai la so nguyen to ')

else begin

d:=0;

for a:=2 to n div 2 do

if (n mod a=0) then d:=d+1;

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

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

end;

readln;

end.

không sao bạn nhé

thanks bn nha.Thế có mất tiền k z???

Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra.

Program Tim_uoc_2;

uses crt;

Var S, n, i,j: longint;

Begin

clrscr;

Write('Nhap so n ='); readln(n);

For i:=1 to n do

Begin

S:=0;

For j:=1 to i do if i mod j = 0 then S:=S+j;

if S = 2*i then write(i:6,',');

end;

readln

end.

nghĩa là trang cá nhân của bạn bị CTV hay giáo viên hoặc quản lí xóa đó bn

tốt nhất là bạn lập nick khác đi, bị xóa rồi thì khó mà quay lại đc ...