Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);
line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);
line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);
floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.
3
var n: integer;
s: real;
begin
s:=0;
n:=1;
while n <= 3*3*3*3*3*3*3*3 do begin
s:= s+1/n;
n:= n*3;
end;
writeln(s);
end.
4
var a: integer;
s: real;
begin
s:=1;
readln(a);
for var i:=1 to a do begin
s:= s-1/(i+1);
s:= s+1/(i+2);
end;
writeln(s);
end.