Дана геометрическая прогрессия 3, 6, 12, 24, … Чему будет равна сумма 13-ти ее членов?…

Question

50

Дана геометрическая прогрессия 3, 6, 12, 24, … Чему будет равна сумма 13-ти ее членов? (составить программу в паскале + по возможности сблок-схемой)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

parkers · Accepted Answer

47

parkers

08 февраля 2024

var a: array [1… 13] of real; i: integer; q,s: real; begin s: =3; a[1]: =3; a[2]: =6; a[3]: =12; a[4]: =24; q: =a[2]/a[1]; for i: =2 to 13 do begin a[i]: =a[i-1]*q; s: =s+a[i]; end; writeln (s); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: