Doanh Tống
Hỏi từ APP VIETJACK
Viết chương trinh đếm các số chia hết cho 2 hoặc chia hết cho 5 trong dãy A gồm n số nguyên dương (n < 1000) giải theo Pascal
Quảng cáo
1 câu trả lời 3238
2 năm trước
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;
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!