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;

begin

l:=1;

readln (n) ;

for i:=1 to n do

begin

y:=y + (1/l) ;

l:=l+1;

writeln (y) ;

end;

end.

2).

program c1;

var n, i:integer;

begin

readln (n) ;

for i:=1 to n do

begin

if (i mod 3=2) then write (i,' ') ;

end;

end.