1. Вычислить значение переменной Y при заданном значении N: Y=1/1+1/2+1/3+… +1/N.…

1). Использовал цикл, но условия не до конца понялprogram c1; var n,i: integer; y,l: real; beginl: =1; readln (n); for i: =1 to n do beginy: =y+(1/l); l: =l+1; writeln (y); end; end.2).program c1; var n,i: integer; beginreadln (n); for i: =1 to n do begin if (i mod 3=2) then write (i,'); end; end.