Viết chương trình nhập n số nguyên.Đếm các số vừa chia hết cho 2 vừa chia hết cho 3.Xuất kết quả ra màn hình

0 bình luận về “Viết chương trình nhập n số nguyên.Đếm các số vừa chia hết cho 2 vừa chia hết cho 3.Xuất kết quả ra màn hình”

1. program chia_het_2_3;

   uses crt;

   var A:array[1..1000] of integer;

         n,i,t:integer;

   begin

          clrscr;

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

          t:=0;

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                        if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i];

                 end;

          write(‘Tong cac so vua chia het cho 2 vua chia het cho 3 la: ‘,t);

          readln;

   end.

   Bình luận

2. Đây ạ

   uses crt;
   Var dem,i,N:integer;
   Begin

   Clrscr;
   Writeln(‘Nhap vao so nguyen N’);
   Readln(N);
   dem:=0;
   for i:=1 to N do

   if(i mod 2=0) and (i mod 3=0) then dem:=dem+1;
   wrteln(‘Cac so vua chia het cho 2 vua chia het cho 3 la ‘,dem);
   Readln;
   end.

   Bình luận