Var n,i,so:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If so mod 2 = 0 then writeln(so);

End;

Readln;

End.

Var i, n, S: integer;

Begin 

Read(n);

S:=0;

If i mod 2 = 1 then while i:=1 to n do S:=S+i;

Write (S);

Readln;

End.

Ko bt đúng ko :)

Tham khảo:

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=1 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

Cách khác:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

i:=1;

while (i<=n) do 

  begin

t:=t+i;

i:=i+2;

end;

writeln(t);

readln;

end.

uses crt;

var n,i,o,d:integer;

function ktnt(n:integer): integer;

var i,d:integer;

begin

d:=0;

for i:=1 to sqrt(n) do

if (n mod i=0) then d:=d+1;

if d=2 then ktnt=0

else ktnt=1;

end;

begin

readln(n);

writeln(' so nguyen to be hon hoac bang n la'); {a}

for i:=1 to n do

if ktnt(i)=0 then writeln(i);

writeln('so nguyen to nho nhat khong be hon n');

o:=n;

while o>0 do

begin

if ktnt(o)=0 then

begin

write(o);

break;

end;

o:=o+1;

end;

writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');

o:=0;

o:=1;

d:=0;

for i:=o+2 to n do

begin

if ktnt(i)=0 then

begin

d:=d+1;

write(i,' ');

if d<2 then continue;

end;

d:=0;

writeln;

end;

readln;

end.

Số chẵn:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 0 then S:=S+i

Write(S);

Readln

End.

Số lẻ:

Var i,n,S: longint;

Begin

Readln(n);

For i:=1 to n do 

If i mod 2 = 1 then S:=S+i

Write(S);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

t1=0;

t2=0;

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

{

cin>>x;

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

else t2+=x;

}

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

return 0;

}

n = int(input('Nhập số n lớn hơn 2: '))

tong = 0

i = 2

while i <= n:

       tong += i

       i += 1

print('Tổng các số từ 2 đến', n, 'là:', tong)

program so_nguyen_to;

uses crt;

var i,n:integer;

function kt(n:integer):boolean;

var i,j:integer;

begin

j:=0;

for i:=1 to n do

if n mod i=0 then inc(j);

if j=2 then kt:=true

else kt:=false;

end;

BEGIN

clrscr;

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

if kt(n) then writeln(n,' la so nguyen to')

else writeln(n,' khong phai la so nguyen to');

writeln('cac so nguyen to be hon hoac bang ',n,' la:');

for i:=1 to n do

if kt(i) then write(i:5);

writeln;

writeln('cac cap so le lien tiep la so nguyen to be hon hoac bang ',n,' la:');

for i:=1 to n do

if (i mod 2=1) and (kt(i)) and (kt(i+2)) then write(i,',',i+2);

readln;

end.

câu c bạn viết cách ra nhé!

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n;

cin>>n;

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

if (i%2==1) cout<<i<<" ";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int i,n;

int main()

{

cin>>n;

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

if (i%2==1) cout<<i<<" ";

return 0;

}