Những câu hỏi liên quan
TT
Xem chi tiết
MN
10 tháng 5 2022 lúc 15:04

1+2+3+...+2022=[(2022-1):1+1]x(2022+1):2=2022x2023:2=2045253

Bình luận (2)
NB
Xem chi tiết
NT
22 tháng 4 2021 lúc 21:29

uses crt;

var i,n,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

 if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
TK
Xem chi tiết
NT
21 tháng 10 2021 lúc 0:00

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long n,x,i,t1,t2;

int main()

{

cin>>n;

t1=0; t2=0;

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

{

cin>>x;

if (x%2==0) t1=t1+x;

else t2=t2+x;

}

cout<<t1<<" "<<t2;

return 0;

}

Bình luận (0)
H24
Xem chi tiết
NT
13 tháng 5 2021 lúc 16:58

uses crt;

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

i,t,t1:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

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

end;

t:=0;

for i:=1 to 10 do 

if a[i] mod 2<>0 then 

begin

write(a[i]:4);

t:=t+a[i];

end;

writeln;

writeln('Tong cac so le la: ',t);

t1:=0;

for i:=1 to 10 do

t1:=t1+a[i];

writeln('Tong cac phan tu cua mang la: ',t1);

readln;

end.

Bình luận (0)
H24
Xem chi tiết
NT
13 tháng 5 2021 lúc 10:07

uses crt;

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

i,n,t,t1:integer;

begin

clrscr;

n:=10;

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do

  if a[i] mod 2<>0 then 

begin

t:=t+a[i];

write(a[i]:4);

end;

writeln;

writeln('Tong cac so le la: ',t);

t1:=0;

for i:=1 to n do 

 t1:=t1+a[i];

writeln('Tong cac phan tu cua mang la: ',t1);

readln;

end.

Bình luận (0)
DT
Xem chi tiết
LJ
Xem chi tiết
NT
23 tháng 2 2021 lúc 21:45

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.

Bình luận (1)
HV
Xem chi tiết
TA
Xem chi tiết
TA
Xem chi tiết