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]