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.

3 tháng 1 2022

- Bài này mình viết ở ngôn ngữ C++

- Chương trình :

#include<iostream> 

using namespace std; 

int main() { 

int g = 0; 

for (int i = 100; i <= 1000; i++) {

if (i % 2 == 0) { 

g += i;

 } 

}

cout << g; 

return 0; 

}

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

for (i=100; i<=200; i++)

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

cout<<t;

return 0;

}

21 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long t,i;

int main()

{

t=0;

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

t=t+i;

cout<<t;

return 0;

}

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=100 to 200 do 

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

writeln(t);

readln;

end.

#include <bits/stdc++.h>
using namespace std;
long long test;
int main() {
    ios_base::sync_with_stdio(false);
    cin.tie(NULL);
    cout.tie(NULL);
cout<<((199-101)/2+1)*(199+101)/2;
return 0;
}

 

19 tháng 12 2021

#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=t+i;

cout<<t;

return 0;

}

14 tháng 3 2023

n = int(input())
if n % 2 != 0:
    n -= 1
so_so_hang = (n - 2) // 2 + 1
print((n + 2)*so_so_hang // 2)

21 tháng 10 2021

Thuật toán liệt kê:

Bước 1: Nhập N

Bước 2: Tong←0; i←1;

Bước 3: Nếu i>N thì in ra Tong và kết thúc

Bước 4: Kiểm tra i chia hết cho 2 đúng thì Tong←Tong+i; sai thì chuyển xuống bước 5

Bước 5: i←i+1; quay lại bước 3

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=0 then t:=t+i;

writeln(t);

readln;

end.

1:

uses crt;

var i,j,t,kt:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do 

  if i>1 then 

begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

writeln(t);

readln;

end.

Câu 2: 

*Viết chương trình:

uses crt;

var n,p,t:integer;

begin

clrscr;

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

t:=0;

for p:=2 to n-1 do 

  if n mod p=0 then t:=t+p;

writeln('Tong cac uoc that su cua ',n,' la: ',t);

readln;

end.

23 tháng 12 2021

Bài 2: 

uses crt;

var x,i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

writeln(dem);

readln;

end.

23 tháng 12 2021

Bài 1 đâu ạ