PROGRAM TONG1A;PROGRAM TONG1A;PROGRAM TONG1A;PROGRAM TONG1A; US...

Bài 3.

Program tong1a;

Program tong1a;

Program tong1a;

Program tong1a;

Uses crt;

Uses crt;

Uses crt;

Uses crt;

Var S: real;

Var S: real;

Var S: real;

Var S: real;

a, N: integer;

a, N: integer;

a, N: integer;

a, N: integer;

begin

begin

begin

begin

clrscr;

clrscr;

clrscr;

clrscr;

write('Nhap a: ');readln(a);

write('Nhap a: ');readln(a);

write('Nhap a: ');readln(a);

write('Nhap a: ');readln(a);

S:=1.0/a;

S:=1.0/a;

S:=1.0/a;

S:=1.0/a;

N:=1;

N:=1;

While n<=100 do

While n<=100 do

While n<=100 do

While n<=100 do

Begin

Begin

S:=S+1.0/(a+N);

S:=S+1.0/(a+N);

S:=S+1.0/(a+N);

S:=S+1.0/(a+N);

N:=N+1

N:=N+1

N:=N+1;

;

;

;

N:=N+1

End

End

End

End;

;

;

;

Writeln('Tong S la: ',S:8:4);

Writeln('Tong S la: ',S:8:4);

Writeln('Tong S la: ',S:8:4);

Writeln('Tong S la: ',S:8:4);

Readln

Readln

Readln

Readln

End

End

End

End.

.

.

.

Ví Dụ

Ví Dụ

Ví Dụ

Ví Dụ

Great by: Nguyễn Trọng Hoàng Email: [email protected]