K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

15 tháng 6 2018

-các số chẵn không quá một trăm là: 0;2;4;6;8;10;...;10

 dãy trên có số số hạng là: (100-0) : 2 + 1 = 51 ( số hạng )

 A là: (100 + 0) x 51 : 2 = 2550

- các số lẻ không quá 100 là: 1;3;5;7;9;11;...;99

dãy trên có số số hnagj là: ( 99 - 1 ) : 2 + 1 = 50 ( số hạng )

B là: ( 99 + 1 ) x 50 : 2 = 2500 

Vậy A - B = 2550 - 2500 = 50

Đáp số : 50

18 tháng 6 2018

50 đấy nhưng có điều toán này ko có đáp ssoos

23 tháng 6 2023

Ta có: \(A=2+4+6+...+98+100\)

\(B=1+3+5+...+97+99\)

\(\Rightarrow A-B\)

\(=\left(2+4+6+...+100\right)-\left(1+3+5+7+...+99\right)\)

\(=\left(2-1\right)+\left(4-3\right)+...+\left(100-99\right)\)

\(=1+1+1+...+1\) (50 số 1)

\(=50\)

23 tháng 6 2023

giúp mình với cảm on nhiều

 

Tổng các số chẵn không vượt quá 100 là :

2 + 4 + 6 + ... + 98 = ( 98 + 2 ) . 49 : 2 = 2450

Tổng các số lẻ không vượt quá 100 là :

1 + 3 + 5 + ... + 99 = ( 99 + 1 ) . 50 : 2 = 2500

Vậy hiệu của chúng là :

2450 - 2500 = -50

Bổ sung cho mình số 0 nhé

:>>>>>>>>>>>>

Vội nên quên mất , hihi

10 tháng 8 2015

           

7 tháng 12 2019

Program bt_3;

Uses crt;

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

Dem, Tong, n, i: integer;

Begin

Clrscr;

 Writeln(‘nhap so phan tu, n=’);

 Readln (n);

 for i := 1 to n do

 begin

 writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

 readln(a[i]);

 end;

 Dem:=0;

 Tong:=0;

 For i:=1 to n do

 If (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.

5 tháng 3 2017

Program bt_3;

Uses crt;

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

Dem, Tong, n, i: integer;

Begin

Clrscr;

 Writeln(‘nhap so phan tu, n=’);

 Readln (n);

 for i := 1 to n do

 begin

 writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

 readln(a[i]);

 end;

 Dem:=0;

 Tong:=0;

 For i:=1 to n do

 If (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.

29 tháng 11 2019

Program bt_3;

Uses crt;

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

Dem, Tong, n, i: integer;

Begin

Clrscr;

 Writeln(‘nhap so phan tu, n=’);

 Readln (n);

 for i := 1 to n do

 begin

 writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

 readln(a[i]);

 end;

 Dem:=0;

 Tong:=0;

 For i:=1 to n do

 If (a[i] mod 2 = 1) and (a[i] mod 3 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.