mảng 1 chiều

[thubest]

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

mảng 1 chiều, 100 phần tử:
a. đếm xem trong mẩng có bao nhiêu số hoàn hảo.
b. đếm xem trong mảng có bao nhiêu số nguyên tố.

ai biết chỉ mình với, làm chi tiết giùm nha!

@cuong276: không dung` ngôn ngữ teen
Đã sửa

 

[mikelhpdatke]

mảng 1 chiều, 100 phần tử:
a. đếm xem trong mẩng có bao nhiêu số hoàn hảo.
b. đếm xem trong mảng có bao nhiêu số nguyên tố.

Var A:array[1..100] Of Integer;
   n,i,dsnt, dshh:INteger;


Function ktshh(n:INteger):Boolean;
Var s,i,d:Integer;
Begin
 s:=0;
 For i:=1 to n-1 do If n mod i=0 then s:=s+i;
 If s=n then ktshh:=True else ktshh:=False;

End;

Function ktsnt(n:Integer):Boolean;
Var i,d:Integer;
Begin
d:=0;
 For i:=1 to n do If n mod i =0 then inc(d);
If d=2 then ktsnt:=True else Ktsnt:=False;

End;



BEGIN
 Readln(n);
dsnt:=0;
dshh:=0;
For i:=1 to n do
    Begin
      readln(A[i]);
      If ktsnt(A[i]) then inc(dsnt);
      If ktshh(A[i]) then inc(dshh);
   End;

writeln(' Co: ', dshh, ' so hoan hao');

writeln(' Co: ', dsnt, ' so nguyen to');
readln
END.