Nhập vào 1 dãy số gồm n số nguyên a) tính tổng các số chẵn b) in ra màn hình các số chia hết cho 3

0 bình luận về “Nhập vào 1 dãy số gồm n số nguyên a) tính tổng các số chẵn b) in ra màn hình các số chia hết cho 3”

1. program ct;

   uses crt;

   var  s,i,n:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   writeln(‘nhap mang a[‘,i,’]:=’);readln(a[i]);

   end;

   s:=0;

   for i:=1 to n do

   if a[i] mod 2=0 then s:=s+a[i];

   writeln(‘tong cac so chan la ‘,s);

   if a[i] mod 3=0 then writeln(‘cac so chia het cho 3 la’,a[i]:2);

   readln

   end.

   Bình luận

2. uses crt;
   var A:array[1..1000] of integer;
       i,n,s:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i] mod 2 = 0 then s:=s+A[i];
      end;
      write(‘Tong cac so chan la: ‘,s);
      writeln;
      write(‘Cac so chia het cho 3 la: ‘);
      for i:=1 to n do if A[i] mod 3 = 0 then write(A[i]:4);
      readln
   end.

   Bình luận