Var
y, s, d: real;
i, n, j: integer;
function factorial(N: integer): longint;
begin
<span>if N = 0 then factorial := 1 </span>
Else factorial := factorial(N - 1) * N
end;
begin
readln(n);
s := 1;
<span>for i := 2 to n do </span>
begin
d := 1;
for j := 2 to i do
d := d + (1 / j);
<span>s := s + (factorial(i) / d); </span>
end;
write(s);
<span>end.</span>
===== PascalABC.NET =====
begin
var a := ReadArrInteger(3);
a.Println;
var (mx, mn) := (a.Max, a.Min);
a.Transform(p -> p = mn ? mx : p);
a.PrintLines
end.
2)......................................................
А) (x>=0) and (x<=1)
б) (x<0)or(x>1)
в) (x>0)and(y>0)
г) (x>0)or(y>o)
д) (x<=0)and(y<=0)
е) (x>0)and(y<0) or (x<0)and(y>0)
1.
integer: b, d;
real : e,h;
bool: c,j;
char: A, f, j , i;
2.
256
3.
a = 32
4.
a = 40
5.
b = 48