❣️ программа в паскале,через while дано натуральное число n.вычислить сумму: p=1+3+5+..+(2n-1)

195

437

Посмотреть ответы 2

Ответы на вопрос:

lyubalarina04

Информатика

4,5(14 оценок)

Уэтой есть более простой способ решения: заметим,что мы складываам подрят идущие нечетные числа,при этом разность между двумя соседними числами будет p = 1 + 3 + 5 + 7 + (2n - 1) - сумма членов арифметической тогда p = (первый член + последний член)/2 × колво ,чтро первый член будет 1,а последний 2n - 1, и колво этих членов = n,то р = (1 + 2n - 1)/2×n=2n/2×n = n^2 значит сумма первых n членов данной прогрессии будет равна n^2 программа: var n: integer; begin readln(n); writeln(n*n); end. если уж делать эту же программу через цикл while,то: var n,p,t: integer; begin readln(n); t = 1; p = 0; while (t < 2*n - 1) do begin p = p + t; t = t + 2; end; writeln(p); end.

Олесяолесенька

Информатика

4,6(75 оценок)

Pascalabc.net 3.4 function l(x1,y1,x2,y2: real): =sqrt(sqr(x2-x1)+sqr(y2-y1)); begin var (xa,ya): =readreal2('введите координаты точки а(х,у): '); var (xb,yb): =readreal2('введите координаты точки b(х,у): '); var (xc,yc): =readreal2('введите координаты точки c(х,у): '); var a: =l(xb,yb,xc,yc); var b: =l(xc,yc,xa,ya); var c: =l(xb,yb,xa,ya); var k: =a=b? 1: 0; k+=a=c? 1: 0; k+=b=c? 1: 0; case k of 0: writeln('разносторонний'); 1: writeln('равнобедренный'); else writeln('равносторонний'); end end. **************** begin var n: =readinteger('n='); var i: =trunc(ln(n)/ln(3)); if 3**i=n then i-=1; writeln(i) end.