Question

Написать програму на Паскале

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var (fact,sqrtx,s):=(1.0,Sqrt(Abs(x)),0.0);
  for var i:=1 to n do begin
    fact*=i; s+=1/fact+sqrtx
    end;
  Writeln('S=',5*s)
end.

Пример
n= 20
x= 3.18
S=186.916954143565

№2

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var (powi,s):=(1.0,0.0);
  for var i:=1 to n do begin
    powi*=2; s+=(x+Sqr(Sin(i*x)))/powi
    end;
  Writeln('S=',s)
end.

Пример
n= 13
x= 0.59
S=1.12411258214649