Cho dãy A gồm N số từ a1,…,an .Tính tổng các số là bội của 3 và 5

0 bình luận về “Cho dãy A gồm N số từ a1,…,an .Tính tổng các số là bội của 3 và 5”

1. var n:integer;

         s: longint;

         a: array[1..1000] of integer;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

   begin

   read(a[i]);

   if (a[i] mod 5 =0) and (a[i] mod 3 = 0) then s:=s+a[i];

   end;

   writeln;

   write(‘s= ‘,s);

   readln

   end.

   Bình luận

2. Program TB;
   Uses crt;
   Var A: array[1..10000] of longint;
       i,s,n: longint;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           s:=0;
           For i:=1 to n do
                   If (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then s:=s+A[i];
           Write(‘Tong cac so la boi cua 3 va 5 la: ‘,s);
           Readln
   End.

   Bình luận