1+3+5+…+(2n-1); Надо написать эту задачу на паскалеЕсть её решение:1) Проверяем правильность утверждения при малых n.n=1: 1=1² - верноn=2: 1+3=2² - верноn=3: 1+3+5=3² - верно2) Предположим, что утверждение верно для n=k.Тогда справедливо равенство 1+3+5+....+(2k-1)=k².3) Докажем, что утверждение верно и для n=k+1.Слева и справа добавим по 2(k+1)-1:Получим 1+3+5+....+(2k-1)+(2(k+1)-1)=k²+2(k+1)-1Преобразуем правую часть.k²+2(k+1)-1=k²+2k+1=(k+1)².Таким образом, из того, что 1+3+5+....+(2k-1)=k², следует то, что1+3+5+....+(2k-1)+(2(k+1)-1)=(k+1)² - верно для n=k+1.

:var

   n, i: word;

   sum: real;

begin

   write ('n = '); readln (n);

   sum := 0;

   for i := 1 to n do

       sum := sum + 1/(i*i);

   writeln (sum:6:5);

readln

end.

gene  16/06/2017

a(a-1)(a-2)(a-3)...(a-n)

var  

   a,n,i: integer;

   mult: longint;

begin

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

   readln(a);

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

   readln(n);

   mult := a;

   for i:=1 to n do

       mult := mult * (a - i);

   writeln(mult);

end.

1/a + 1/(a+1)+...+1/(a+n)

var  

   a,n,i: integer;

   sum: real;

begin

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

   readln(a);

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

   readln(n);

   sum := 0;

   for i:=0 to n do

       sum := sum + 1/(a + i);

   writeln(sum:5:2);

end.