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

0 bình luận về “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. 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.

   Bình luận