Bạn kham khảo bài của mình nhé!

Program nhap_so_n;

Uses crt;

Var i,n,s:integer;

Begin clrscr;

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

S:=0;

For i:=1 to n do

If i mod 2 = 0 do S:=S+i;

Writeln;

Write('tong cac so chan la ',S);

Readln;

End.

Mình chúc bạn học tốt!

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=0;

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

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

cout<<s;

return 0;
}

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=0;

for i:=1 to n do if i mod 2=0 then s:=s+i;

write('S = ',s);

readln

end.

pascal

program sum_of_evens;

var
  i, n, sum: integer;

begin
  write('Enter a positive integer: ');
  readln(n);
  
  sum := 0;
  
  for i := 2 to n step 2 do
  begin
    sum := sum + i;
  end;
  
  writeln('The sum of even numbers from 2 to ', n, ' is ', sum);
end.

dấu < mình làm rồi đúng 100%

Điền dấu < nha bạn nhé

Cảm ơn nhiều

dấu "<"

chắc chắn 100% luôn

nhưng mk cần lời giải

Đáp án: C

A = {0; 2; 4; 6; 8; 10}; B = {0; 1; 2; 3; 4; 5; 6}; C = {4; 5; 6; 7; 8; 9; 10}.

B ∪ C = {n ∈ N: 0 ≤ n ≤ 10}; A  ∩ (B ∪ C) = A.

A\B = {8; 10}; A\C = {0; 2}; B \ C = {0; 1; 2; 3}

(A \ B) ∪ (A \ C) ∪ (B \ C) = {0; 1; 2; 3; 8; 10}

program ChenLe;

     n, i, chan, le: integer;

begin

     chan := 0;

     le := 0;

     writeln('Nhap so nguyen duong N: ');

     readln(n);

     for i := 1 to n do

     begin

          if (i mod 2 = 0) then

               writeln(i, ' la so chan');

               chan := chan + 1;

          end

          else

          begin

               writeln(i, ' la so le');

               le := le + 1;

          end;

     end;

     writeln('Co ', chan, ' so chan va ', le, ' so le trong ', n, ' so dau tien');

     readln;

end.