Cho dãy C gồm n phần tử .Đếm và in ra các số lẽ chia hết cho 3 có trong dãy C

0 bình luận về “Cho dãy C gồm n phần tử .Đếm và in ra các số lẽ chia hết cho 3 có trong dãy C”

1. Program bai_tap ;

   Uses crt ;

   Var C: array [1..150] of integer ;

          i,n,d : integer;

   Begin

   Write(‘nhap n=’);

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu ‘,i,’ =’);

   Readln (C[i]);

   end;

   d:=0;
   Writeln (‘Cac so le chia het cho 3 trong day la:’);

   For i:=1 to n do 

   If (C[i] mod 2=1) and (C[i] mod 3=0)  then 
   Begin
   Write (C[i]:5);

   d:=d+ 1;
   end;
   Writeln;

   Writeln(‘so so le chia het cho 3 trong day la:’, d);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var d,i,n:integer;

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

   begin

   clrscr;

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

   for i:=1 to n do

   begin

   write(‘nhap mang C[‘,i,’]:=’);readln(c[i]);

   end;

   d:=0;

   for i:=1 to n do

   if (c[i] mod 2=1) and (c[i] mod 3=0) then

   beign

   writeln(c[i]:6);

   d:=d+1;

   end;

   writeln(‘so le chia het cho 3’,d);

   readln

   end.

   Bình luận