1. даны числа от 1 до n.найти s: 1/2+1/3+…+1/n

var

i,n: integer;

s: real;

begin

repeat

write ('n = '); readln(n);

until (n> 0);

s: =0;

for i: =1 to n do s: =s+1/i;

writeln ('s = ',s: 0: 4);

readln;

end.

                        антон, борис, давид, григорий       ольга ,мария, светлана, екатерина                                                                                 

норильск         +           -            -                 -                   -            -                 -                    + 

москва             -            -           -               +                -            +                 -                      -    

ростов             -            -            +                -                 -           -                +                   -          

пятигорск       -            +            -                 -                   +          -                 -                        -

=================================================================

  антон  екатерина  норильск

  борис ольга   пятигорск

  давид  светлана  ростов

  григорий  мария  москва