Вопрос по информатике:
Решить в Pascal:
Найти произведение, сомножители которого представлены каждым третьим членом: X1, X4, X7, и т. д. - заданного массива X1, X2, ..., Xn.
- 01.12.2017 00:20
- Информатика
- remove_red_eye 17468
- thumb_up 28
Ответы и объяснения 1
Var a: array [1..200] of integer;
i, j, q, a1: integer;
begin
Writeln('Kakoi dlini massiv?');
Readln(q);
for i:=1 to q doReadln(a[i]);
a1:=a[1];
j:=1;
while j<=q do
beginj:=j+3;
a1:=a1*a[j];
end;
Writeln(a1);
end.
- 02.12.2017 16:23
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.