Вычислите сумму: 1+1/2+1/3+1/4+…+1/10. Решите задачу в 2 вариантах - с использованием операторов while и repeat.

vari:integer;s:real;begini:=1; s:=1;while i<>10 dobegini:=i+1;s:=s+1/i;end;writeln('Вычисленно с помощью цикла while: ',s);i:=1; s:=1;repeati:=i+1;s:=s+1/i;until i=10;writeln('Вычисленно с помощью цикла repeat: ',s)end.