Информатика 8 класс, программирование Если произведение трёх чисел равно нулю, нулевые элементы заменить суммой этих трёх чисел
69
ОТВЕТЫ
begin
var a:=ReadArrInteger(Введите 3 чисел:,3);
var i:=a.Aggregate(1,(i,j)-gt;i*j);
var s:=a.Aggregate(0,(i,j)-gt;i+j);
if i=0 then a.Replace(0,s);
a.Println;
end.
var a:=ReadArrInteger(Введите 3 чисел:,3);
var i:=a.Aggregate(1,(i,j)-gt;i*j);
var s:=a.Aggregate(0,(i,j)-gt;i+j);
if i=0 then a.Replace(0,s);
a.Println;
end.
147
Отв. дан
Nuadanadar
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Селиверст
В марафоне участвуют 12 спортсменов. Специальное устройство регистрирует прохождение ...
2019-03-12 01:18:58
Чернцов
От разведчика была получена следующая шифрованная радиограмма, переданная с ...
2019-03-12 01:18:51
Neanlyag
Перевести число 21 из десятичной системы счисления в двоичную, ...
2019-03-12 01:18:41
Vaatic
Расставьте в порядке убывания: 1) 12 бит, 2)2 Гбайта, ...
2019-03-12 01:15:48