K
Khách

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 i,t1,t2:integer;

begin

clrscr;

t1:=0;

t2:=0;

i:=0;

while i<=20 do 

begin

i:=i+1;

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

else t2:=t2+i;

end;

writeln(t1);

writeln(t2);

readln;

end.

18 tháng 3 2022

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.

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.

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.

#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;

}

 

 

#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;

}

 

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.

16 tháng 4 2023

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?

16 tháng 4 2023

dđúng ko v bạn

 

10 tháng 3 2022

???

10 tháng 3 2022

???