1.Вычислить значение переменной Y при заданном значении N: Y=1/1+1/2+1/3+ ... + 1/N. использовать цикл типа ДО. (Паскаль)

 

2. Найти все целые двузначные числа, удовлетворящие условию: остаток от деления на 3 равен 2. (Паскаль)

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.