Відповідь:
Пояснення:
program abc;
var
i,j, n: integer;
factorial, y: real;
a:array[2..10] of real;
b:array[2..10] of real;
begin
Writeln('N >= 2');
Readln(n);
factorial := 1;
y := 1;
for j:=2 to n do
for i:=2 to j*j-2 do
factorial := factorial * i;
b[j] := factorial + 4;
y := y * b[j];
Writeln('y = ', y);
end;
end.
Відповідь:
Пояснення:
program abc;
var
i,j, n: integer;
factorial, y: real;
a:array[2..10] of real;
b:array[2..10] of real;
begin
Writeln('N >= 2');
Readln(n);
factorial := 1;
y := 1;
for j:=2 to n do
begin
for i:=2 to j*j-2 do
factorial := factorial * i;
b[j] := factorial + 4;
y := y * b[j];
Writeln('y = ', y);
end;
end.