uses crt;

var n,i,a:integer;

begin

clrscr;

n:=1;

a:=1;

while n<=100 do

begin

write(a:4);

a:=a+2;

n:=n+1;

end;

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

if i mod 5<>0 then t:=t+i;

writeln(t);

readln;

end.

a)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

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

until n<100;

if n mod 2=0 then 

begin

for i:=0 to n do 

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

end

else writeln(n,' khong la so chan');

readln;

end.

b)

uses crt;

var i,n:integer;

begin

clrscr;

repeat

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

until n<100;

if n mod 2=1 then 

begin

for i:=1 to n do 

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

end

else writeln(n,' khong la so le');

readln;

end.

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.

c1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

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

cout<<s;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s=s*i;

cout<<s;

return 0;

}

Uses crt;

Var i,t,n:integer;

Begin

Clrscr;

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

T:=0;

For i:=1 to 2*n do

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

Writeln(t);

Readln;

End.

Giải giúp mk với mai mk thể rồi mk cảm ơn nhiều

Uses crt;

Var i,t,n:integer;

Begin

Clrscr;

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

T:=0;

For i:=1 to 2*n do

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

Writeln(t);

Readln;

End.