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

Ответы

DashaTaylor11 24.05.2020 12:16

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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Настя190411 08.10.2019 05:50

Стоит ли устанавливать обновления безопастности для galaxy s7 ? ...

Danila251008 13.04.2020 18:22

Сколько Кбайт информации содержит сообщение объемом 220 бит? ...

kobelevmiklip08h5g 13.04.2020 18:22

Сделал вот так но не получается что-то доделать, оно должно заканчиваться к (b) ,а оно считает дальше, кароче что-то не так Интервал a b шаг h погрешность d import math a =...

DashaGaff 13.04.2020 18:22

Сколько Кбайт информации содержит сообщение объемом 220 бит...

Нурай231 19.07.2019 21:20

Придумать ситуацию куда можно, обязательно вставить пословицу+аргументы...

ОЛДВЖ 19.07.2019 21:20

Площадь листа для рисования 500квадратных сантиметров. отрезали одну пятую часть листа. найдите площадь отрезанного листа...

AREN12082003 19.07.2019 21:20

Хватит ли 50 г алюминия на полное восстановление 40 г оксида серебра (1 вал)?...

feitlol 19.07.2019 21:20

Найдите градусную меру центрального угла, соответствующего половине окружности...

alinkalapko049 19.07.2019 21:20

Укажи строчку, в которой есть разноспрягаемый глагол. выпиши его. смотреть, бежать, сидеть, спать слышать, держать, учить, расстилать испугаться, вращать, падать, дарить...

dimakrochak 19.07.2019 21:20

Насыпь шоссейной дороги имеет в верхней части ширину 60 м. какова ширина насыпи в нижней её части, если угол наклона откосов равен 60 градусам, а высота насыпи равна 12 м?...

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

Популярные вопросы