function Factorial(n: extended): extended;
var
i: longint;
m: extended;
begin
m := 1.0;
for i := 2 to Round(n) do
m := m * i;
Factorial := m;
end;
var
x, m: extended;
i, n: longint;
begin
ReadLn(x, n);
m := 0.0;
for i := 1 to n do
m := m + sin(Factorial(i) * x);
WriteLn(m);
end.
var
n:integer;
s,x:real;
{функция факториала}
function F(a:integer):longint;
begin
if a>0 then F:=F(a-1)*a
else F:=1;
end;
begin
{вводим N}
repeat
write('Enter N:');
readln(n);
until n>0;
{вводим Х}
write('Enter X:');
readln(x);
s:=0;
{считаем сумму}
while n>0 do
begin
s:=s + sin(F(n)*x);
dec(n)
end;
{выводим результат}
writeln('Result:',s);
readln;
end.
begin
ReadLn(x, n);
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.