Программа Pascal. В диапазоне чисел, введеных клавиатурой, выбрать все нечетные числа и посчитать их кол-во. Если их больше 10, то показать наибольшее из них, иначе - показать сумму четных чисел.
Ответы на вопрос
Ответил Аноним
0
// 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.
Новые вопросы