Câu 1:

uses crt;

var i,n,s: integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+i;

writeln ('tong la: ',s);

readln;

end.

Câu 2:

uses crt;

var i,n,s: integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

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

writeln ('tong la: ',s);

readln;

end.

$#Trumtinhoc$

Python:

1.

N = int(input())

d = 0

for i in range(1, N + 1):
      d += i

print(d)

2.

n = int(input())

for i in range(1, n + 1):
      if i % 2 != 0:
                 print(i)

Pascal:

(Xin lỗi bạn vì mình chỉ mới học sơ qua Pascal, mong bạn thông cảm).