Добрый день. , , написать программу для вычисления суммы элементов арифметической и прогрессии.

136

162

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

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

1linia1

Информатика

4,7(19 оценок)

Var a1,b1,n,d: integer; sa: real; begin writeln('vvedite perviy element arefmeticescoy progressii='); readln (a1); writeln('skoliko cisel'); readln(n); writeln('raznosti arefmeticescoy progressii='); readln(d); writeln ( 'summa arefmeticescoy progressii='); sa: =((2*a1+(n-1)*d)/2)*n; write(sa); readln; end.var i,j,q,n: integer; z,b,b1,sg: real; beginwrite('vvedite perviy element geometricescoy progressii'); read(b1); writeln('q='); readln(q); writeln('n='); readln(n); for i: = 1 to n do beginz: =i; b: = b1 *power(q,z-1); sg: = sg + b; end; writeln('summa geometricescoy progressii=',sg); readln; end.

Совершенная14

Информатика

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

{программу для вычисления суммы элементов арифметической прогрессии} var i,j,q,d,n,s,s0,sm: integer; begin write('введите число эле-в, первый элемент и шаг ариф. шаг'); read(n,s0,d); for i: = 1 to n do begin s: = s0 +(i-1)*d; write(s: 2); sm: = sm + s; end; write(sm: 4); end.{программу для вычисления суммы элементов прогрессии} var i,j,q,n: integer; z,b,b0,sm: real; begin write('введите число эле-в, первый элемент и знаменатель геом. '); read(n,b0,q); for i: = 1 to n do begin z: =i; b: = b0 *power(q,z-1); write(b: 4); sm: = sm + b; end; write(sm: 4); end.