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

Var

i:integer;

s:real;

begin

i:=1; s:=1;

while i10 do

begin

i:=i+1;

s:=s+1/i;

end;

writeln ('Вычисленно с помощью цикла while: ', s);

i:=1; s:=1;

repeat

i:=i+1;

s:=s+1/i;

until i=10;

writeln ('Вычисленно с помощью цикла repeat: ', s)

end.