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.
Объяснение: