Question

помогите пожалуйста составить программы в паскале 1и 5 ​

Answer 1

Ответ:

PascalABC.NET

#1

begin  

 Range(1, ReadInteger('n = ')).Aggregate(BigInteger.One, (x, y) -> x * y).Print;

end.

#5

begin  

 var x := ReadInteger('x = ');

 Range(1, ReadInteger('n = ')).Select(n-> n * cos(n*x)).Sum.Print;

end.

Объяснение:

Answer 2

Ответ:

1.

var i,n,f:integer;

begin

   f:=1;

   readln(n);

   for i:=1 to n do

       f:=f*i;

   

   writeln(f);

 

end.

5.

var i,n,f:integer;

res,x:real;

begin

   res:=0;

   readln(n);

   readln(x);

   for i:=1 to n do

       res:=res+i*cos(i*x);

   

   writeln(res);

 

end.

Объяснение: