Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mike961
22.07.2021 22:40 •
Информатика
Информатика 8 класс, программирование если произведение трёх чисел равно нулю, нулевые элементы заменить суммой этих трёх чисел
Показать ответ
Ответ:
mumu9
06.10.2020 10:44
begin
var a:=ReadArrInteger('Введите 3 чисел:',3);
var i:=a.Aggregate(1,(i,j)->i*j);
var s:=a.Aggregate(0,(i,j)->i+j);
if i=0 then a.Replace(0,s);
a.Println;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MrHard1
12.03.2023 05:59
Начертить структурную схему алгоритма, написать и отладить программу для табуляции следующей функции и записать в таблице: написала программу, ввожу ее в паскаль....
ПолинаПашкова14
26.07.2022 03:08
ответить на вопросы по информатике 3 класс по программе power point...
SvetaX16X
04.03.2023 07:29
Нужно составить программу рисования имени даша! ...
alpengold1310
03.08.2020 16:21
Имя входного файластандартный вводимя выходного файластандартный выводограничение по времени2 секундыограничение по памяти64 мегабайтаваша — заполнить двумерный массив...
marina18190
26.09.2021 02:33
Написать программу которая вводит по строкам с клавиатуры двумерный массив и вычисляет сумму его элементов по столбцам на питоне с пояснениями...
4534567889246400607
16.04.2021 11:55
C++. классы. нужно написать какие переменные будут в классе, а какие в main. в баскетбол играли 16 команд, каждая собрала а побед и b поражений. в следующий тур команды,...
maxbas1
18.01.2022 21:31
Нужна c++ ! создайте программу, которая использует стек арифметических выражений (не более одного)для преобразования в постфиксную форму. арифметическое выражение...
victoriyasergi
12.06.2022 05:28
Запишите названия элементов диалогового окна соответственно их номерам....
mariy2104
12.04.2023 08:55
1) в одной из кодировок кои-8 каждый символ кодируется 8 битами. определите информационный объём следующего предложения в данной кодировке: без труда не вытащишь и...
sos130
06.01.2023 18:35
На схеме изображены дороги между пятью населенными пунктами a b c d и указаны протяженности этих дорог определите какие два пункта наиболее удалены друг от друга укажите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:=ReadArrInteger('Введите 3 чисел:',3);
var i:=a.Aggregate(1,(i,j)->i*j);
var s:=a.Aggregate(0,(i,j)->i+j);
if i=0 then a.Replace(0,s);
a.Println;
end.