اقتباس:
المشاركة الأصلية كتبت بواسطة tarake
يرجى المساعدة هنا
|
كود:
Program ex2 ;
Uses wincrt ;
Var
i ,n : integer ;
h :real ;
Begin
Repeat
Readln(n) ;
Until n >=0 ;
h :=0 ;
For i := 1 to n do
h :=h + 1/i ;
Writeln(h :12 :6) ;
End.
الشكر أو النقد لن يكلّف كثيرا