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: 7 (7 votes)
Ảnh của Tommy Tran

Tommy Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

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

 
Cài đặt máy chủ DNS và Domain Controller trong Windows Server 2003

Cài đặt máy chủ DNS và Domain Controller trong Windows Server 2003

Windows Server 2003 gồm có tất cả các chức năng mà khách hàng mong đợi từ một hệ điều hành Windows Server, chẳng hạn như khả năng bảo mật, độ tin cậy, khả năng có sẵn và nâng cấp.

Sử dụng Repeater field trong Wordpress Custom field

Sử dụng Repeater field trong Wordpress Custom field

Repeater Fields: Define the sub fields which will appear as cells in the repeater table (see screenshot above)

Giới thiệu 2 base Themes in Drupal 8 core

Giới thiệu 2 base Themes in Drupal 8 core

My skin crawls when I see HTML filled with divs tucked inside each other over and over again like a Russian nesting doll

Wordpress Freelancer

 

Wordpress Freelancer