, Pascal . , , , .
Pascal : , , , . , .
, , . . Turbo Pascal .
. ().
, ().
. , :
, , :
Ø
Ø
Ø
Ø
Ø .
/ , .
() , . .
, () .
. () .
, . ; , , , .
, . , (), () . , () , . .
|
|
Pascal , . , , , Turbo Pascal, . , . .
:
Program Example;
Var
N: integer;
R: real;
begin
Readln (n);
R: = 0;
while n>0 do
Begin
R: = R + 1/n;
N: = n-1
End;
Writeln (R)
End.