Đếm xem có bao nhiêu số chia hết cho 3 mà ko chia hết cho 5

0 bình luận về “Đếm xem có bao nhiêu số chia hết cho 3 mà ko chia hết cho 5”

1. 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) and (A[i] mod 5 <> 0) then inc(s);
           Write(‘Co ‘,s,’ so chia het cho 3 khong chia het cho 5′);
           Readln
   End.

   Bình luận

2. *   Xác định bài toán :

       –  Input : Số nguyên N và dãy a₁, a₂,…, a_N.

       –  Output : Số các số chia hết cho 3 mà không chia hết cho 5.

   *  Thuật toán :

   – Bước 1 : Nhập N và dãy a₁, a₂,…, a_N;

   – Bước 2 : i←1; S←0;

   – Bước 3 : Nếu i > N thì đưa ra giá trị S rồi kết thúc; (S là số các số chia hết cho 9).

   – Bước 4 :

   + Bước 4.1 : Nếu a_i chia hết cho 3 và không chia hết cho 5 thì S←S+1;

   + Bước 4.2 : i←i+1 rồi quay lại bước 3.

   Bình luận