Tổng các số lẻ <100 là bao nhiu vậy các bạn
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.
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.
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.
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ị )
dddddddddddddddddddddddddddddddddddddddddddddddddddddddddđ
{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.
}
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ẽ
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.
Số số hạng:(99-1):2+1=50
Tổng:(99+1)×50:2=2500
k mình nha!Mình đầy đủ hơn!
2500 nhoa pn