Cho A là tổng của các số chẵn không quá 100 và B là tổng các số lẻ không quá 100. Tính nhanh A-B
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
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\)
![](https://rs.olm.vn/images/avt/0.png?1311)
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
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
-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
50 đấy nhưng có điều toán này ko có đáp ssoos