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

[Sao Mai]

[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 tính tổng dãy số sau với n được nhập từ bàn phím:

 

[siroclc]

Program tongdayso;
Uses crt;
Var n, i:integer;
tong:real;
Begin
Clrscr;
tong:=0;
Writeln('Nhap so cac so can tinh:');
readln(n);
For i:=1 to n do tong:=tong+1/(i*(i+2));
Writeln('Tong day so can tim la:',tong:5:2);
Readln;
End.