Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
equillirum
04.07.2021 06:52 •
Информатика
Решить в pascal: найти произведение, сомножители которого представлены каждым третьим членом: x1, x4, x7, и т. д. - заданного массива x1, x2, xn.
Показать ответ
Ответ:
nicky234
24.07.2020 16:49
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
nukita200230
19.06.2022 12:29
Сообщение занимает 4 страницы по 30 строк. в каждой строке записано по 50 символов. сколько символов в использованом алфавите, если всё сообщение содержит 4500 байтов (7...
Pro100iraa
28.06.2021 13:19
что надо изменить? Как правильно должно быть? необходимоизменить программу так, чтобыробот разворачивался приобнаружении любого цвета,...
нурперим
10.02.2022 05:05
Найдите в терминологическом словаре. найдите в терминологическом словареопределения двух-трёх понятий через ближайший род и видовое отличие. нужно завтра!...
XMCBVSAJHDBV
15.11.2020 21:21
Можно синтаксический разбор (цифра 4) предложения: богатство не главное в жизни....
rsr
15.11.2020 21:21
Составьте формулы so(|v),nao,ho,beo,feo,cus,hbr,ph вас подробней...
Хачачуля
15.11.2020 21:21
Познакомьтесь с высказываниями зарубежных писателей о книге.андре моруа (французский писатель, 1885—1967): «а как следует читать? если книга нас захватывает, то в первый...
irakeksik
15.11.2020 21:21
Как называется профессия человека, который проявляет плёнку с фотографиями?...
катя4003
15.11.2020 21:21
Подберите к слову россиянин 3 однокоренных слова и составьте с ними распространёные предложения...
anghelina1
15.11.2020 21:21
Сделать краткую запись к . в одной коробке 10 карандашей, а в другой 6 карандашей. сколько всего карандашей в этих двух коробках? измени вопрос так, чтобы решалась вычитанием....
skskanshhd
15.11.2020 21:21
1)найдите все делители числа 30 и запишите их в порядке возрастания 2)выберите из чисел 14,21,31,42,51,63,68,75 те которые а)кратны 7; б)кратны 17; в)не кратны 8; г)не кратны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.