Những câu hỏi liên quan
ND
Xem chi tiết
H24
18 tháng 3 2022 lúc 7:48

Program viet_chuong_trinh_tinh_tong;
Uses Crt; 
Var i,s:integer; 
Begin 
Clrscr; 
i:=2; 
While (i>1) and (i<=100) do 
Begin 
s:=s+i; 
i:=i+2; 
End; 
Writeln(S); 
Readln; 
End.

Bình luận (0)
NT
18 tháng 3 2022 lúc 9:09

uses crt;

var i:integer;

begin

clrscr;

i:=50;

while i<=150 do 

  begin

if i mod 2=0 then write(i:4);

i:=i+1;

end;

writeln;

i:=50;

while i<=150 do 

 begin

if i mod 2=1 then write(i:4);

i:=i+1;

end;

readln;

end.

Bình luận (0)
HN
Xem chi tiết
NT
21 tháng 3 2021 lúc 22:23

uses crt;

var i,n,t:integer;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

begin

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

i:=i+1;

end;

write(t);

readln;

end.

Bình luận (0)
BT
Xem chi tiết
NT
6 tháng 4 2022 lúc 23:03

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)
BT
Xem chi tiết
NT
6 tháng 4 2022 lúc 23:03

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2!=0) t+=i;

cout<<t;

return 0;

}

 

Bình luận (0)
LN
Xem chi tiết
GV
Xem chi tiết
NT
11 tháng 3 2022 lúc 15:48

uses crt;

var n,i,t1,t2:integer;

begin

clrscr;

t1:=0;

t2:=0;

repeat

readln(n);

if n mod 2=0 then t1:=t1+n

else t2:=t2+n;

until n=0;

writeln(t1,' ',t2);

readln;

end.

Bình luận (0)
HB
Xem chi tiết
NH
16 tháng 4 2023 lúc 10:00

n = int(input("Nhap n: "))
sum_even = 0
for i in range(2, n+1, 2):
    sum_even += i
print("Tong cac so chan lien tiep den", n, "la:", sum_even)

 

python ha:0?

Bình luận (4)
H24
Xem chi tiết
NN
10 tháng 3 2022 lúc 9:46

???

Bình luận (0)
KK
10 tháng 3 2022 lúc 9:46

???

Bình luận (0)
KH
10 tháng 3 2022 lúc 9:46

ko đăng linh tinh

Bình luận (0)
NH
Xem chi tiết
DT
17 tháng 9 2019 lúc 7:17

Bình luận (0)