Lập thuật toán giải bài toán: Cho dãy a1,-,aN đếm xem trong dãy có bao nhiêu số chia hết cho 7

0 bình luận về “Lập thuật toán giải bài toán: Cho dãy a1,-,aN đếm xem trong dãy có bao nhiêu số chia hết cho 7”

1. Bước 1: Nhập N và dãy a1, a2, .. an

   Bước 2: i <- 1 , t <- 0

   Bước 3: Nếu ai chia hết cho 7 thì t <- t+1 

   Bước 4: i <- i+1

   Bước 5: Nếu i> N thì đưa ra t rồi kết thúc

   Bước 6: Quay lại bước 3

          Bạn tham khảo nhó <3

   Bình luận

2. Input: n; dãy a1,…,an
   Output: số số chia hết cho 7

   Thuật toán:

   B1: Nhập vào n và dãy a1…an
   B2: dch ← 0
   B3: i ← 1 to n 
   a[i] mod 7 = 0 thì inc(dch)
   B4: In ra màn hình, kết thúc thuật toán

   *CT:

   Uses crt;
   Var a:array[1..100000] of longint;
         i, n, dch: integer;
   Begin
   Clrscr;
   Write(‘Nhap n = ‘); readln(n);
   For i:=1 to n do
   Begin
        write(‘a[‘,i,’]=’);
        readln(a[i]);
   end;
   dch:=0;
   For i:=1 to n do if a[i] mod 7 = 0 then inc(dch);
   Write(‘Co ‘,dch,’ so chia het cho 7′); 
   Readln
   end.

   Bình luận