Question

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

Answer 1

var
i:integer;
s:real;
begin
i:=1; s:=1;
while i<>10 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.