1)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
repeat
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
until i>=n;
writeln('s = ',s);
end.
2)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
while i<n do
begin
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
3)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1;
for i:=2 to n do
begin
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
Пример:
5
s = 6.875000000000000e-01
44,94,94(четные) 47,97,99,97,99 (не четные(
<h2>=EXP(x) - ACOS(x)</h2>
где x - ячейка, содержащая число x.
<u>Текстовый процессор — вид прикладной компьютерной программы, предназначенной для производства (включая набор, редактирование, форматирование, иногда печать) любого вида печатной информации. Иногда текстовый процессор называют текстовым редактором второго рода.</u>