Giúp t pascal: Viết chương trình in ra các số hoàn hảo?

Program So_hoan_hao;

uses crt;

Var S, n, i,j: integer;

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.

Kiểm tra xem ha

uses crt;

var i:integer;{to lam trong khoang nguyen nek}

function kt(a:integer):boolean;

begin

kt:=true;

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

if a mod i=0 then kt:=false;

if n<2 then kt:=false;

end;

begin

clrscr;

write( n= );readln(n);

for i:=1 to n do

if kt(i) then write(i:4);

readln

end.

{Cko y kien nha.....................}

Học hỏi anh nè mấy cưng

Program Tinh_Tong;

Uses Crt;

Var N,j,i:integer;

Tong:real;

Begin

clrscr;

Write('Nhap N : ');Readln(N);

write('Cac so hoan hao la ' );

For I:=2 to n do

Begin

Tong:= 1;

For j:= 2 to (i div 2) do

If i mod j=0 then Tong:=Tong+j;

if Tong=i then writeln(i,' ');

ENd;

Readln;

ENd.

VAR a,n,x,y,z,tong:LONGINT;

m:ARRAY[1..1000] OF LONGINT;

BEGIN

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

FOR a:=1 TO n DO

BEGIN

{Tim cac uoc cua a[i]}

FOR x:=1 TO a-1 DO

IF a MOD x=0 THEN

BEGIN

y:=y+1;

m[y]:=x;

END;

{Tinh tong cac uoc}

tong:=0;

FOR z:=1 TO y DO tong:=tong+m[z];

IF tong=a THEN {Neu la so hoan hao, in ra man hinh cac uoc so}

BEGIN

writeln;

write(a,'=1');

FOR z:=2 TO y DO write('+',m[z]);

END;

y:=0; z:=0;

END;

readln

END.

Phần 1: Kiểm tra khả năng đọc hiểu chương trình.

Hãy đọc đoạn chương trình và cho biết kết quả sẽ được viết ra màn hình

STT Đoạn chương trình Kết quả viết ra màn hình

1 b := 20; a := 6;

Writeln(‘Ket qua la: ‘, b/a : 6 : 3); ……………………………………...

2 S:=2; a:=2;

For i:=’B’ to ‘D’ do S:=S+a; a:=a+1;

Write(S:6, a:6); ……………………………………...

3 {A : array [1..4] of Integer;}

S:=0; d:=0;

A[1] := 5; A[2] := 6; A[3] := 7; A[4] :=8;

For i:=1 to 4 do

If A[i] mod 2 = 0 then s:= s + A[i];

d:= d+ 1;

if d <> 0 then writeln(S/d : 6 :2); ……………………………………...

Phần 2: Viết chương trình

Viết chương trình in ra các số hoàn hảo nhỏ hơn 1000, sử dụng chương trình con.

Viết chương trình in ra các số nguyên tố nhỏ hơn 1000, sử dụng chương trình con.

Viết chương trình nhập vào một số nguyên dương n (n >= 5) và một dãy gồm n số nguyên. Sau đó:

- In ra các số lẻ trong dãy;

- Nhập một số x từ bàn phím. Cho biết x xuất hiện trong dãy bao nhiêu lần.

program SHH;{chương trình nhập một dãy số kiểm tra số hoàn hảo}

uses crt;

var a:array[1..50]of integer;

n,i,j,s:integer;

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

for i:=1 to n do

begin

write( nhap so thu );readln(a[i])

end;

write( cac so hoan hao trong mang la );

for i:=1 to n do

begin

s:=0;

for j:=1 to n-1 do

if a[i] mod j=0 then s:=s+1;

if s=a[i] then write(a[i]);

end;

readln

end.

Lập chương trình tìm tất cả các số hoàn hảo nhỏ hơn số nguyên N (N >=10), in các số hoàn hảo và và các ước của số tìm được ra màn hình. Giá trị của N được nhập từ bàn phím.

viết chương trình in ra dãy số nguyên tố đc nhập từ bàn phím. Ai giúp e bài này với ạ

nếu dùng while thì sao cho lờ đáp nhá

sao lai la S:=2*i ma ko la S:=i