Free Pascal

[congchuaanhsang]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1, Nhập vào 1 mảng gồm n số nguyên dương. in ra màn hình các số nguyên tố của mảng
2, Nhập vào 1 mảng gồm n số nguyên dương. in ra màn hình các số fibonacci của mảng
3, Lập chương trình in ra tất cả số hoàn hảo nhỏ hơn số nguyên dương n
4, Nhập vào một mảng gồm n số nguyên, kiểm tra xem mảng trên có phải mảng đối xứng không
5, Nhập vào số nguyên dương n. Kiểm tra xem n có phải số nhị thể không

 

[khai221050]

1, Nhập vào 1 mảng gồm n số nguyên dương. in ra màn hình các số nguyên tố của mảng
2, Nhập vào 1 mảng gồm n số nguyên dương. in ra màn hình các số fibonacci của mảng
3, Lập chương trình in ra tất cả số hoàn hảo nhỏ hơn số nguyên dương n
4, Nhập vào một mảng gồm n số nguyên, kiểm tra xem mảng trên có phải mảng đối xứng không
5, Nhập vào số nguyên dương n. Kiểm tra xem n có phải số nhị thể không

1/

uses crt;
var  d, i,b,a,j : integer;
m: array[1..999999] of integer;
n: array[1..999999] of integer;
begin
clrscr;
d:=0;
writeln('Nhap so luong phan tu trong mang : ');
readln(j);
for a:=1 to j do
begin
write(' Nhap so thu ',a ,': ');
readln(m[a]);
end;
for a:=1 to j do
begin
If (m[a]>1) then
begin
if m[a] =2 then n[2]:=2;
if m[a] =3 then n[3]:=3
else
begin
for i:=2 to (m[a] div 2) do
if m[a] mod i=0 then inc(d);
if d=0 then n[m[a]]:=m[a];
d:=0;
end;
end;
end;
for b:=2 to 9999 do
if (n[b] <>0) then 
Write(n[b],'  ');
readln
end.

2/Mình chưa biết finonaci là cái quái j cả
3/

Program So_Hoan_Hao; 
uses crt;
Var i , j , S :Word; 
n: byte;
Begin
clrscr;
readln(n);
For i := 2 to n do 
Begin 
s:=0; 
For j := 1 to i-1 do if i mod j = 0 then S := S+j ; 
if S=i then Writeln(i,' la so hoan hao'); 
End; 
Readln; 
End.

4/ H bận òi, mai làm tiếp
5/ Nhị thể là cái quái gì thế