Здравствуйте! Буду признателен если поможете решить задачку.
Задание: Дано натуральное число n. Вычислить:
Нужно решить с помощью for, repeat или while.
s:=0;
a:=1;
for k:=1 to n do begin
for i:=2*sqr(k-1)+2 to 2*sqr(k)+1 do a:=a*i;
a:=-a;
s:=s+a
end;
Program Factoreal;
uses crt;
var
N: longint;
M,I: integer;
Begin
clrscr;
N:=1;
write('введите число>=0 ');
readln(M);
if M=0 then N:=1
else
for I:=1 to M do
N:=N*I;
writeln ('Факториал равен:',' ',N);
readln;
end.