Question

Помогите написать программы на Паскале,пожалуйста

Answer 1

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var Y:=SeqGen(ReadInteger('n='),k->1/(k*(k+1)),1).Sum;
  Writeln('Y=',Y);
end.

Пример
n= 20
Y=0.952380952380952

№2

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var z:=SeqGen(n,k->x**(k+1)/k,1).Aggregate(1.0,(p,q)->p*q);
  Writeln('z=',z);
end.

Пример
n= 5
x= 1.184
z=0.244260252490087

№3

begin
  SeqWhile(1.0,t->t+0.1,t->t<3.05)
      .Foreach(x->Writeln(x:3:1,1/(x*x)*Sin(1/x):16:12))
end.

Результат
1.0  0.841470984808
1.1  0.652021043673
1.2  0.514011703608
1.3  0.411587451922
1.4  0.334223416928
1.5  0.274831023587
1.6  0.228553622242
1.7  0.192004772133
1.8  0.162782526473
1.9  0.139155444489
2.0  0.119856384651
2.1  0.103944853665
2.2  0.090713629742
2.3  0.079624432089
2.4  0.070262945063
2.5  0.062306934769
2.6  0.055503350302
2.7  0.049651675388
2.8  0.044591684711
2.9  0.040194342192
3.0  0.036354966311