Bạn hãy viết chương trình tìm ra và tính tổng các số chia hết cho 2, 3, 5, 9 được nhập từ bàn phím
1 câu trả lời
Program Hotboy ;
Uses crt;
Var a:array[1..100] of longint;
I,n ,s : integer;
Begin
Clrscr;
S:=0;
Write('nhap so so se nhap tu ban onim'); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']'); readln(A[i]);
End;
For i:=1 to n do
Begin
If (A[i] mod 2= 0) and (A[i] mod 5=0) and (A[i] mod 9 =0) then
Write('so chia het cho 2,5,3,9 la',A[i]);
S:=S+A[i];
End;
Write('tong cac so thoa man la',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
