Информатика 8 класс, программирование
Rondov1995@mail.ru в категроии Информатика, вопрос открыт 20.05.2017 в 14:44
Если произведение трёх чисел равно нулю, нулевые элементы заменить суммой этих трёх чисел
1 ответ
tsiganckova2014@yandex.ru , ответ добавлен 20.05.2017 в 15:08
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
Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.