Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vyaskin2018
07.05.2022 18:01 •
Информатика
Напишите программу в среде pascal abc,которая в последовательности чисел от 5 до 30 находит произведение чётных.
Показать ответ
Ответ:
danchik60
03.07.2020 22:15
Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.
0,0
(0 оценок)
Ответ:
svv190204
03.07.2020 22:15
Это очень сложно, не могу
0,0
(0 оценок)
Популярные вопросы: Информатика
настя51001
09.04.2021 12:14
Допишите код программы на языке программирования python для заданного алгоритма 20...
2ewgv423t
04.09.2020 19:23
Двозначне число, записане в системі числення з основою 5, при переставленні чисел перетворюється на число, записане в системі числення з основою 7. Знайти це число....
alina06122
14.10.2021 20:03
Сделать рассчёт функции и построить их графики...
ksa4
26.03.2022 07:39
Процесс упаривания сгущенного молока продолжался 3,5 часа. Масса загруженного в вакуум-аппарат сырья составляет 865 кг. В час выпаривается от 54,65 до 61,32 кг влаги. Рассчитать...
makl192
14.01.2020 06:33
Уровень A. Напишите программу, которая получает два целых числа A и B (0 A B) и выводит квадраты всех натуральных чисел в интервале от A до B. Пример: Введите два целых числа:...
ttttrrrrtttr
16.12.2022 01:59
Файл размером 1900 Кбайт передаётся через некоторое соединение в течение 90 секунд. Определи размер файла (в Кбайт), который можно передать через это соединение за 36 сек....
380974769507p06wmj
24.08.2022 06:15
Напиши программу, которая вводит трёхзначное целое число и выводит да , если все цифры одинаковые(python)...
sjsjxhahhshc
23.05.2021 17:32
в системе программирования Pascal ABC выполните проверяемое задание p1 для исполнителя Робот (закрасить помеченные клетки с использованием процедуры Сross)(рис. 3.37)...
учченица
24.11.2020 10:13
Заполните таблицу истинности логического выражения...
Vikamolch11
06.02.2021 16:40
Счета–фактуры не составляются налогоплательщиками: а) по операциям реализации ценных бумаг (за исключением брокерских...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.