Модуль 3. Задание 6
Program Cikl;
var i,n: integer;
sum: real;
begin writeln ('n= '); readln (n);
sum:=0; i:=1;
while i<=n do
begin sum:=sum+1/i
i:=i*(-2);
end;
writeln ('summa',n,'elementov= ',sum:10:5);
end.

Программа Цикл
Дано i,n:целые
сумма: действительное
начало вывод('n= '); ввод (n);
сумма:=0; i:=1;
если i<=n то
начало сумма:=сумма+1/i
i:=i*(-2);
конец;
вывод ('сумма', n, ''элементов= ', сумма:10:5);
ввод;
конец.