Tổng các số lẻ <100 là bao nhiu vậy các bạn
Những câu hỏi liên quan
Nhập vào mảng A gồm n số nguyên (n<=1000), đếm và tính tổng các số chẵn,số lẻ trong dãy.Ví dụ, với n=5, các số trong dãy là 7 8 4 2 10Thì số lượng các số chẵn là 4, tổng các số chẵn là 24Số lượng các số lẻ là 1, tổng các số lẻ là 7
uses crt;
var a:array[1..1000]of integer;
i,n,t,t1,dem,dem1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
t1:=0;
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end
else begin
t1:=t1+a[i];
inc(dem1);
end;
end;
writeln('So luong so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
writeln('So luong so le la: ',dem1);
writeln('Tong cac so le la: ',t1);
readln;
end.
Đúng 1
Bình luận (1)
viết ct nhập vào n dãy số nguyên. sắp xếp số lẻ lên đầu dãy, các số chẵn xuống cuối dãy. đưa màn hình dãy số đã sắp xếp, số lượng các số lẻ, số lượng các số chẵn, tổng của các số lẻ, tổng của các số chẵn.
Xem chi tiết
Program HOC24;
var a: array[1..32000] of integer;
i,n,tg,c,l: integer;
tc,tl: longint;
begin
write('Nhap N: '); readln(n);
c:=0; l:=0; tc:=0; tl:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i];
if a[i] mod 2=0 then
begin
c:=c+1;
tc:=tc+a[i];
end;
if a[i] mod 2=1 then
begin
l:=l+1;
tl:=tl+a[i];
end;
end;
write('Day da sap xep: ');
for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
writeln;
wirteln('Co ',l,' so le');
writeln('Co ',c,' so chan');
writeln('Tong cac so le la: ',tl);
writeln('Tong cac so chan la:', tc);
readln
end.
Đúng 0
Bình luận (0)
Viết các chữ '' chẵn '' , '' lẻ '' vào chỗ chẫm cho thích hợp:
a,Tổng của hai số chẵn là số ...............
b,Tổng của số chẵn và số lẻ là số .............
c, Tổng của hai số lẻ là số..............
từ 1 đến 1001 có bao nhiêu số lẻ , bao nhiêu số chẵn , tổng các số lẻ hơn tổng các số chẵn bao nhiêu đơn vị ?
Số số lẻ từ 1 đến 1001 là :
( 1001 - 1 ) : 2 + 1 = 501 ( số lẻ )
Số số chẵn từ 1 đến 1001 là :
( 1000 - 2 ) : 2 + 1 = 500 ( số chẵn )
Tổng các số lẻ là :
( 1 + 1001 ) x 501 : 2 = 251001 ( đơn vị )
Tổng các số chẵn là :
( 2 + 1000 ) x 500 : 2 = 250500 ( đơn vị )
Tổng các số lẻ hơn tổng các số chẵn là :
251001 - 250500 = 501 ( đơn vị )
Đúng 0
Bình luận (0)
dddddddddddddddddddddddddddddddddddddddddddddddddddddddddđ
Đúng 0
Bình luận (0)
từ 1 đến 1001 có số số lẻ là:
(1001-1):2+1=501(số)
từ 1 đến 1001 có số số chẵn là:
(1000-2):2+1=500(số)
tổng của các số lẻ từ 1 đến 1001 là:
(1001+1):2x501=251001
tổng của các số chẵn từ 1 đến 1001 là:
(1000+2):2x500=250500
tổng các số lẻ hơn tổng các số chẵn là:
251001-250500=501(đơn vị)
Đáp số :501 đơn vị
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình tính tổng các số chẵn và các số lẻ từ 1 đến N.Với N nhập từ bàn phím.
Ví dụ: Nhập N=5 thì kết quả: Tổng các số từ 1 đến N là 6,Tổng các số lẻ là 9
{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN
clrscr;
Write('Nhap n:');Readln(n);
C:=0;L:=0;
For i:=1 to n do
If i mod 2=0 then C:=C+i else L:=L+i;
writeln('Tong cac so chan la:',C);
writeln ('Tong cac so le la:',L);
Readln;
end.
}
Đúng 0
Bình luận (0)
từ 27 đến 2142 có bao số chẵn, bao nhiêu số lẻ. Tổng các số chẵn và tổng các số lẻ trong các số trên hơn kém nhau bao nhiêu đơn vị ?
Câu 3:Tổng các số lẻ có 4 chữ số bé hơn 2016 là bao nhiêu ?
Trả lời : Tổng các số lẻ có 4 chữ số bé hơn 2016 là ….
từ 27 đến 2142 có bao nhiêu số chẵn? có bao nhiêu số lẻ? Tổng các số chẵn và tổng các số lẻ trong các số trên hơn kém nhau bao nhiêu đơn vị.
từ 27 đến 2142 có các số chẵn là
* (2142-28):2+1=1058 số chẵn
từ 27 đến 2142 có các số lẽ là
* (2141 - 27):2+1= 1058 số lẽ
Đúng 0
Bình luận (0)
Viết các chữ '' chẵn '' , '' lẻ '' vào chỗ chẫm cho thích hợp:
a,Tổng của hai số chẵn là số ...............
b,Tổng của số chẵn và số lẻ là số .............
c, Tổng của hai số lẻ là số..............
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b)dãy có bao nhiêu số lẻ tính tổng các số lẻ đó
program TongSoLeTrongDay;
var
n, i, tong, dem: integer;
a: array[1..100] of integer;
begin
tong := 0;
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
tong := tong + a[i];
if a[i] mod 2 <> 0 then
begin
dem := dem + 1;
end;
end;
writeln('Tong cac phan tu trong day la: ', tong);
writeln('So phan tu le trong day la: ', dem);
readln;
end.
Đúng 1
Bình luận (0)