Tin học Viết chương trình

[HoangLam24]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập số nguyên dương N :
- Tính tổng từ 1 đến N
- Tính biểu thức 1+1/2 +...+1/n
GIÚP MÌNH VỚI Ạ , MÌNH KHÔNG HIỂU TIN NÊN BÀI NÀY MÌNH KHÔNG LÀM ĐƯỢC . MONG MỌI NGƯỜI GIÚP ĐỠ

 

[Nhật Hạ !]

Var n,tong,i: integer;
bieuthuc: real;
Begin
Write('Nhap n '); Readln(n);
For i:=1 to n do
Begin
tong:=tong+i;
bieuthuc:=bieuthuc+1/i;
End;
Writeln('Tong tu 1 den ',n,' =  ',tong);
Writeln(' Gia tri bieu thuc =  ',bieuthuc);
Readln;
End.

 

[02-07-2019.]

Var n,tong,i: integer;
bieuthuc: real;
Begin
Write('Nhap n '); Readln(n);
For i:=1 to n do
Begin
tong:=tong+i;
bieuthuc:=bieuthuc+1/i;
End;
Writeln('Tong tu 1 den ',n,' =  ',tong);
Writeln(' Gia tri bieu thuc =  ',bieuthuc);
Readln;
End.

Mình nghĩ phần biểu thức bạn nên làm tròn thành 2 chữ số thập phân ạ.
bieuthuc : 0 : 2