Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  nguyen thi my hanh-8b-bai 15p 1
Language: PASCAL
Code:
Program Tinh_tong_S;
Uses crt;
var S: real;
    n: integer;
Begin
clrscr;
S:=0; n:=1;
while 1/n>0.001 do
begin
S:=S+1/n;
n:=n+1;
end;
writeln('tong la:',S:1:4);
readln;
End.
Comments: