Составить простую программу на Паскале

@Blackfoor · Регистрация: 16.09.2019

Если хотя бы два числа из трех введенных чисел положительны, то
уменьшить каждое нечетное число на 1, иначе – найти сумму всех
чисел.

@JuriiMW · 17.09.2019, 04:27

Pascal

begin
  var три := ReadArrInteger(3);
  if три.Count(x->x>0) > 1 then
    три.Select(x->odd(x)?x-1:x).Print
  else
    три.Sum.Print
end.

@Blackfoor 0 / 0 / 0 Регистрация: 16.09.2019 Сообщений: 1
		1
	Составить простую программу на Паскале 16.09.2019, 20:54. Просмотров 236. Ответов 1 Метки нет (Все метки) Если хотя бы два числа из трех введенных чисел положительны, то уменьшить каждое нечетное число на 1, иначе – найти сумму всех чисел. 0

Опции темы