Tham khảo

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

writeln(dem);

readln;

end.

Mình đang cần Input, Output và thuật toán cơ ạ, cái này dánh cho lập trình rùi ạ=(((

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n,t,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

s:=1;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

inc(dem);

t:=t+a[i];

s:=s*a[i];

end;

if dem=0 then writeln('Khong co so chia het cho 3 trong day')

else begin

writeln('Tong cac so chia het cho 3 la: ',t);

writeln('Tich cac so chia het cho 3 la: ',s);

end;

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,dem,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

readln;

end.

Câu 3: 

uses crt;

var a:array[1..100]of integer;

i,n,dem1,dem2,t1,t2,s1,s2:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem1:=0;

dem2:=0;

t1:=0;

t2:=0;

s1:=1;

s2:=1;

for i:=1 to n do

begin

if a[i] mod 2=0 then 

begin

inc(dem1);

t1:=t1+a[i];

s1:=s1*a[i];

end

else begin

inc(dem2);

t2:=t2+a[i];

s2:=s2*a[i];

end;

end;

if dem1=0 then writeln('Khong co so chan trong day')

else begin

writeln('So so chan la: ',dem1);

writeln('Tong cac so chan la: ',t1);

writeln('Tich cac so chan la: ',s1);

end;

if dem2=0 then writeln('Khong co so le trong day')

else begin

writeln('So so le la: ',dem2);

writeln('Tong cac so le la: ',t2);

writeln('Tich cac so le la: ',s2);

end;

readln;

end.

Ta có:

Số nhỏ nhất chia hết cho 9 trong dãy số trên là: 9

Số lớn nhất chia hết cho 9 trong dãy số trên là: 495

Số các số chia hết cho 9 là: (495 - 9) : 9 + 1 = 55 (số)

Vậy: có 55 số trong dãy số chia hết cho 9.

55

Cho dãy số tự nhiên liên tiếp 1, 2, 3, 4, 5, ..... 2021. Hỏi dãy số có tất cả bao nhiêu số không chia hết cho 3.

 A. 673

B 1348

C. 1349

D. 1520

B đúng

A nha

Dãy số : 3; 6 ; 9 ; 12; 15....90; 93; 96; 99

a/ Có ( 99 - 3 ) : 3 + 1 = 33 số

b/ Tổng : ( 99 + 3 ) x 33 : 2 = 1683

c/ Số lẻ : 3; 9; 15; ....; 93; 99 có ( 99 - 3 ) : 6 + 1 = 17 số. Tổng lớp số lẻ ( 99 + 3 ) x 17 : 2 = 867

    Số chẵn: 6; 12; 18; ....; 90; 96 có ( 96 - 6 ) : 6 + 1 = 16 số hoặc 33 số - 17 số = 16 số. Tổng (96 + 6 ) x 16 : 2 = 816 hoặc 1683 - 867 = 816

 Tổng số lẻ lớn hơn và hơn là 867 - 816 = 51

a) Cho dãy số tự nhiên liên tiếp từ 1 đến 100 có bao nhiêu số chia hết cho 3 trong dãy số trên

       (99 - 3) : 3 + 1 = 33 (số) . Vậy có 33 số chia hết cho 3 trong dãy số trên.

b) Em hãy tính tổng các số chia hết cho 3 mà em vừa tìm được ở câu a

       (99 + 3) * 33 : 2 = 1683. Vậy tổng các số chia hết cho 3 trong dãy số trên là 1683.

c) Hãy viết dãy số ban đầu thành 2 lớp, lớp số lẻ vào lớp số chẵn hỏi lớp nào có tổng lớn hơn và lớn hơn bao nhiêu đơn vị.

   Chẵn: Trong dãy số từ 1 đến 100 có số các số chẵn là: 

                   (100 - 2 ) : 2 + 1 = 50 (số)

             Tổng của 50 số chẵn là:

                   (100 + 2 ) * 50 : 2 = 2550

   Lẻ: Trong dãy số từ 1 đến 100 có số các số lẻ là: 

                  ( 99 - 1) : 2 + 1 = 50

         Tổng của 50 số lẻ là:

                  (99 + 1) * 50 : 2 = 2550

 Vì  2550 = 2550 \(\Rightarrow\)tổng lớp số chẵn = tổng lớp số lẻ 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x;

int main()

{

cin>>n;

int dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}