uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

dem:=0;

repeat

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

t:=t+n;

dem:=dem+1;

until t>1997;

writeln('Trung binh cong cua cac so da nhap la: ',t/dem:4:2);

readln;

end.

đây là pascal ạ

uses crt;

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

i,n,j,tam,t,t1,tam,dem,max:integer;

begin

clrscr;

n:=0;

t:=0;

repeat

inc(n);

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

t:=t+a[n];

until t>100;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day so theo chieu tang dan la: ');

for i:=1 to n do 

 write(a[i]:4);

writeln;

t1:=0;

dem:=0;

for i:=1 to n do 

if a[i] mod 3=0 then

begin

t1:=t1+a[i];

inc(dem);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln('Tong cac so la boi cua 3 la: ',t1);

writeln('So lon nhat cua day la: ',max);

writeln('So luong so la boi cua 3 la: ',dem);

readln;

end.

Giúp em mới ạ mai em thi rồi 

input: Dãy số n;

output: Tổng các phần tử lớn hơn 0;

các bạn trả  lời nhanh nhé , chi tiết các bước mình cần trong ngày mai

c) Từ 198 > 999 có 2406 chữ số:

( 999 - 198 ) : 1 + 1 × 3 = 2406 ( chữ số )

 Từ 1000 > 2016 có 4068 chữ số :

 ( 2016 - 1000 ) : 1 + 1 × 4 = 4068 ( chữ số )

( 4068 + 2046 ) - 4049 + 2425 ( chữ số )

( 4068 + 2406 ) - 4049 = 2425 ( chữ số )

Vậy số thứ 4049 là số 1.

1:

#include <bits/stdc++.h>

using namespace std;

long long n,i,dem,x;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==0) dem++;

}

cout<<dem;

return 0;

}

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

if a[i]>0 then t:=t+a[i];

writeln(t);

readln;

end.

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ẻ 

Câu 4: 

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 (10<a[i]) and (a[i]<20) then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So phan tu lon hon 10 va nho hon 20 la: ',dem);

writeln('Tong cac phan tu lon hon 10 va nho hon 20 la: ',t);

readln;

end.

Câu 5:

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.