Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Híu

Viết chương trình tính S=\(\frac{1}{1.2}+\frac{1}{2.3}+\frac{1}{3.4}+....+\frac{1}{99.100}\)

Hà Ngân Hà
9 tháng 2 2017 lúc 11:20

program Tinh_tong;

uses crt;

var S, i: longint;

begin

clrscr;

S:= 0;

i:=1;

For i:=1 to 99 do S:= S + 1/[i*(i+1)];

writeln('Tong cua S=', S);

Readln

End.

Trịnh Thị Như Quỳnh
9 tháng 2 2017 lúc 10:16

program Tinh_tong;

uses crt;

var S,i,n:longint;

begin

clrscr;

writeln('hay nhap n',); Readln(n);

S:=0;

i:=1;

For i:=\(\frac{1}{1.3}\)to\(\frac{1}{99.100}\) do \(S:=S+\frac{1}{99.100}\);

i:=i+1;

IF i<=n THEN writeln('Tong cua S=',A);

Readln

End.

Trần Thị Ngọc Trâm
10 tháng 2 2017 lúc 16:48

var

S: real;

i: integer;

Begin

S:=0;

i:=i*(i+1);

for i:=1 to 99 do S:=S+1/i;

writeln('tong la=', S);

readln

end.


Các câu hỏi tương tự
Cold Wind
Xem chi tiết
Mạnh Dương Nguyễn
Xem chi tiết
Nitrox vntm
Xem chi tiết
hoàng thị anh
Xem chi tiết
Lê Hoàng Thảo Nhi
Xem chi tiết
Quang Ngoc
Xem chi tiết
Vũ Duy
Xem chi tiết
Duongtrucqui
Xem chi tiết
nattly
Xem chi tiết