Программа pascal. в диапазоне чисел, введеных клавиатурой, выбрать все нечетные числа и посчитать их кол-во. если их больше 10, то показать наибольшее из них, иначе - показать сумму четных чисел.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (a,b):=ReadInteger2('Введите целочисленные границы диапазона:'); var s:=Range(a,b).Where(t->t.IsOdd); if s.Count>10 then s.Max.Println else Range(a,b).Where(t->t.IsEven).Sum.Println end.
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите целочисленные границы диапазона:');
var s:=Range(a,b).Where(t->t.IsOdd);
if s.Count>10 then s.Max.Println
else Range(a,b).Where(t->t.IsEven).Sum.Println
end.