1. Viết chương trình tính tổng

a=int(input("Nhập a:"))

n=int(input("Nhập n:"))

for i in range (1,n+1):

    a+=i

print("Tổng các số là:",a)

#Vì ở đây s=a+1+2+...+n nên đặt a làm biến tổng luôn cũng được (còn không thì khai báo s ban đầu là a rồi dùng s làm biến tổng)

2.

a=int(input("Nhập a:"))

n=int(input("Nhập n:"))

s=1/a

for i in range (1,n+1):

    s+=1/i

print("<>",s)

#Không biết đề 2 là tính gì nữa nên bạn tự thay <> :)))

Câu 1:

Program baitap1;

Uses crt;

Var S,i,a,n:integer;

Begin

Clrscr;

Write('a='); Readln(a);

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

S:=a;

For i:=1 to n do S:=S+i;

Writeln('S=',S);

Readln

End.

Câu 2:

Program baitap2;

Uses crt;

Var i,n,a:integer;

      S:real;

Begin

Clrscr;

Write('a='); Readln(a);

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

S:=1/a;

For i:=1 to n do S:=S+(1/i);

Writeln('S=',S:9:3);

Readln

End.