Question

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.

Answer 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.

Объяснение: