Lập trình pascal lớp 11

[conan96]

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

Nhập mảng A[n]. Số hoàn hảo là số có tổng các ước bằng chính nó. VD: 6=1+2+3
Đếm xem trong mảng có bao nhiêu số hoàn hảo

 

[thienvamai]

chạy từ 1 ->A[n] -1 tính tổng các ước của nó, nếu nó =A[n] thì cộng biến đếm số các số hoàn hảo lên 1.
chạy từ A[1] ->A[n];
đại khái thế

 

[conan96]

chạy từ 1 ->A[n] -1 tính tổng các ước của nó, nếu nó =A[n] thì cộng biến đếm số các số hoàn hảo lên 1.
chạy từ A[1] ->A[n];
đại khái thế

bạn có thể giải thích rõ hơn ko ? Lấy ước ntn

 

[11thanhkhoeo]

function hoanhao(k:integer):boolean;
begin
hoanhao:=false;
t:=0;
for i:=1 to k -1 do
if k mod i =0 then t:=t+i;
if t=k then hoanhao:=true;
end;

 

[megamanxza]

Uses crt;
var a: array [1..1000] of integer;
      i, n: integer;
function KT(so:integer):boolean;
var t, i: integer;
begin 
  KT:=false;
  t:=0;
  for i:=1 to so-1 do 
  if so mod i =0 then t:=t+i;
  if t=so then KT:=true; 
end;
begin
clrscr;
write ('Nhap do dai cua mang: '); readln (n);
for i:= 1 to n do
  begin
    write ('Nhap phan tu thu ',i,': ');
    readln (a[i]);
  end;
Write ('Cac so hoan hao trong mang la: ');
for i:= 1 to n do
  if KT(a[i])=True then write (a[i],'   ');
readln
end.

Đó là suy nghĩ của mình. Nhớ nhấn Thanks hoặc Đúng nha!

 

[conan96]

Uses crt;
var a: array [1..1000] of integer;
      i, n: integer;
function KT(so:integer):boolean;
var t, i: integer;
begin 
  KT:=false;
  t:=0;
  for i:=1 to so-1 do 
  if so mod i =0 then t:=t+i;
  if t=so then KT:=true; 
end;
begin
clrscr;
write ('Nhap do dai cua mang: '); readln (n);
for i:= 1 to n do
  begin
    write ('Nhap phan tu thu ',i,': ');
    readln (a[i]);
  end;
Write ('Cac so hoan hao trong mang la: ');
for i:= 1 to n do
  if KT(a[i])=True then write (a[i],'   ');
readln
end.

Đó là suy nghĩ của mình. Nhớ nhấn Thanks hoặc Đúng nha!

đếm nữa bạn ạ, mình cho thêm phần đếm vào chương trình chạy đc nhưng kết quả sai