Вычислить значение функции y. Значение x задать произвольно. ...

Мария

Ответ:
//fpc 3.0.0



program HelloWorld;



var t, k: Integer;

var x, sum, p: Real;



begin

   write('Введите x: ');

   readln(x);  
   
   sum := 0;

   p := 1;    

   

   for t := 1 to 7 do

       sum := sum + Sin(t*x) / (1.0 * t * t);

   for k := 1 to 9 do

       p := p * Sqrt(1.0 * k);

       

   writeln(sum + p);    
end.