Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lê Tiến Thành
Xem chi tiết
Duy Nam
7 tháng 3 2022 lúc 8:14

uses crt;

var m,n,t,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

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

t:=0;

for i:=m to n do 

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

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);

readln;

end.

Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:59

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

if (n%2==0)

{

t=0;

for (i=1; i<=n; i++) if (i%2==0) t+=i;

}

else 

{

t=0;

for (i=1; i<=n; i++) if (i%2!=0) t+=i;

}

cout<<t;

return 0;

}

Lê Tiến Thành
Xem chi tiết
Vũ Quang Huy
12 tháng 3 2022 lúc 9:26

tk

uses crt;

var m,n,t,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

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

t:=0;

for i:=m to n do 

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

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);

readln;

end.

Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 15:55

uses crt;

var n,i,t,dem:integer;

begin

clrscr;

readln(n);

if n mod 2=0 then 

begin

t:=0;

for i:=1 to n do 

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

writeln(t);

end

else 

begin

t:=0;

dem:=0;

for i:=1 to n do 

 if i mod 2=1 then 

begin

t:=t+i;

dem:=dem+1;

end;

writeln(t/dem:4:2);

end;

readln;

end.

Lee Jihoon
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

Nguyễn Đoàn Trường Sơn
Xem chi tiết
Đỗ Tuệ Lâm
14 tháng 2 2022 lúc 11:11

undefined

Hoàng Anh Quân
Xem chi tiết
Thuy Nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 10 2021 lúc 23:57

a: 

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

hoc24
Xem chi tiết
Phía sau một cô gái
6 tháng 3 2023 lúc 20:49

program Tong_phan_so;

var

     n, i, x : Integer;

     tong, tong_phan_so, tong_phan_so_chan, tong_phan_so_le : Real;

begin

     Write('Nhap n so: '); Readln(n);

     tong := 0;

     tong_phan_so := 0;

     tong_phan_so_chan := 0;

     tong_phan_so_le := 0;

     for i := 1 to n do

     begin

          Write('Nhap so thu ', i, ': '); Readln(x);

          tong := tong + x;

          tong_phan_so := tong_phan_so + x/100;

          if x mod 2 = 0 then

               tong_phan_so_chan := tong_phan_so_chan + x/100

          else

               tong_phan_so_le := tong_phan_so_le + x/100;

     end;

     Writeln('Tong cua ', n, ' so la: ', tong:0:0);

     Writeln('Tong phan so cua ', n, ' so la: ', tong_phan_so:0:2);

     Writeln('Tong phan so chan cua ', n, ' so la: ',tong_phan_so_chan:0:2);

     Writeln('Tong phan so le cua ', n, ' so la: ', tong_phan_so_le:0:2);

     Writeln('Gia tri trung binh cua ', n, ' so la: ',tong_phan_so/n:0:2);

end.

  

 

        
Lê Bích Thủy
Xem chi tiết
Đỗ Tuệ Lâm
17 tháng 2 2022 lúc 14:08

{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.  
}

Nghĩa Trọng
Xem chi tiết
Minh Lệ
22 tháng 3 2023 lúc 23:54

Program HOC24;

var i,n: integer;

tc,tl: longint;

begin

write('Nhap N: '); readln(n);

tc:=0; tl:=0;

for i:=1 to n do if i mod 2=0 then tc:=tc+i else tl:=tl+i;

writeln('Tong chan la: ',tc);

write('Tong le la: ',tl);

readln

end.

Kiet Quoc
Xem chi tiết
Minh Lệ
21 tháng 10 2021 lúc 16:29

Program HOC24;

var n,i: integer;

t: longint;

Begin

write('Nhap N: '); readln(N);

t:=0;

for i:=1 to n do t:=t+i;

if t mod 2=0 then write('Tong la so chan') else write('Tong la so le');

readln

end.

krt-ttt
25 tháng 10 2021 lúc 20:47

n = int(input('nhap n'))

s = 0

for i in range(0,n):

     s = s+i

print('tong cua day tu 0 den '+n+'la'+s)

if s%2 == 0:

     print('s la so chan')

else:

     print('s la so le')