var
n,i:integer;
p:real;
begin
p:=1;
i:=2;
readln(n);
if n>1 then
repeat
p:=p*(i-1)/i;
i:=i+2;
until i>n;
writeln(p);
end
else writeln('error');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
n,i:integer;
p:real;
begin
p:=1;
i:=2;
readln(n);
if n>1 then
begin
repeat
p:=p*(i-1)/i;
i:=i+2;
until i>n;
writeln(p);
end
else writeln('error');
end.