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

269

318

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

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

мари420

Информатика

4,4(8 оценок)

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.

Molyaneya

Информатика

4,8(24 оценок)

{программу для вычисления суммы элементов арифметической прогрессии} 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.

fox3221

Информатика

4,4(77 оценок)

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк (столбцов) в массиве: '); writeln('*** исходный массив ***'); var a: =matrrandom(n,n,-99,99); a.println(4); writeln(4*a.colcount*'-'); writeln('cуммы и число положительных элементов построчно: '); foreach var r in a.rows do begin var s: =r.where(t-> t> 0); println(s.sum,s.count) end end. пример количество строк (столбцов) в массиве: 6 *** исходный массив *** -98 -66 14 -63 78 -47 -7 59 -88 -7 6 -13 -89 26 29 78 -79 54 -99 55 -15 45 -14 -58 -59 -68 -93 55 63 -33 -72 -94 42 -89 -86 70 cуммы и число положительных элементов построчно: 92 2 65 2 187 4 100 2 118 2 112 2

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.