Pascal Tính tổng các số nguyên dương chia hết cho 5

Pascal Tính tổng các số nguyên dương chia hết cho 5

(1) Tính tổng các số nguyên dương chia hết cho 5.

Function TongSoChiaHet5( A:Mang20,  N:Integer):Integer;
Var S,i :Integer;
Begin
            S:=0;
            For i:=0 to N do
                  If(A[i] mod 5=0)
                        S := S+A[i];
            TongSoChiaHet5:= S;
End;

(2) Tính tổng các số nguyên tố trong mảng

Function LaSoNT( Var N:Integer) :Integer;
Var i:Integer;
Begin
            For i:=2 to N-1do
                  If(N mod i = 0) then
                        return 0
                  Else
                        return 1;
End;
Function TongSoNT(Var A : Mang20, Var N:Integer):Integer;
Var S,i:Integer;
Begin  
S:=0;
            For i:=0 to Ndo
                  If ( LaSoNT( A[i] ) ) then
                        S :=S+ A[i];
            TongSoNT :=S;
End;
Bạn thấy bài viết này như thế nào?: 
Average: 9.8 (170 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Dịch trực tiếp sang tiếng Anh bằng thanh địa chỉ và thanh tìm kiếm

Dịch trực tiếp sang tiếng Anh bằng thanh địa chỉ và thanh tìm kiếm

Dịch trực tiếp từ thanh địa chỉ của trình duyệt hoặc thanh tìm kiếm, bằng cách thêm vào một công cụ tìm kiếm (trong Chrome) hoặc một bookmark dẫn tới...

Giới thiệu các hàm xử lý chuỗi trong SQL 2005 VÀ SQL 2008

thay thế tất cả các chuỗi con nào đó trong 1 chuỗi thành 1 chuỗi con khác

Tuyệt chiêu vào Facebook bằng Gmail

Tuyệt chiêu vào Facebook bằng Gmail

Có lẽ các chiêu thức đổi DNS hay chỉnh sửa file host đã quá nổi tiếng trên mạng nên hôm nay, chúng tôi xin giới thiệu một độc chiêu vào Facebook hoàn toàn..

Công ty diệt chuột T&C

 

Diet con trung