Question

Программа Pascal. В диапазоне чисел, введеных клавиатурой, выбрать все нечетные числа и посчитать их кол-во. Если их больше 10, то показать наибольшее из них, иначе - показать сумму четных чисел.

Answer 1

// 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.

Answer 2

Для решения этой задачи в программе Pascal можно использовать следующий алгоритм:

1. Попросить пользователя ввести диапазон чисел. 2. Создать переменные для хранения количества нечетных чисел, наибольшего нечетного числа и суммы четных чисел. 3. Пройти в цикле по всем числам в заданном диапазоне и проверить каждое число на четность. 4. Если число нечетное, увеличить счетчик нечетных чисел и проверить, является ли оно наибольшим нечетным числом. 5. Если число четное, добавить его к сумме четных чисел. 6. После завершения цикла проверить количество нечетных чисел. 7. Если их количество больше 10, вывести наибольшее из них. 8. Если их количество меньше или равно 10, вывести сумму четных чисел.

Пример кода на Pascal:

program OddEvenNumbers;

var
  startRange, endRange, number, oddCount, maxOdd, sumEven: integer;

begin
  oddCount := 0;
  maxOdd := 0;
  sumEven := 0;

writeln('Enter the start of the range: ');
  readln(startRange);
  writeln('Enter the end of the range: ');
  readln(endRange);

for number := startRange to endRange do
  begin
    if (number mod 2 <> 0) then
    begin
      oddCount := oddCount + 1;
      if (number > maxOdd) then
      begin
        maxOdd := number;
      end;
    end
    else
    begin
      sumEven := sumEven + number;
    end;
  end;

if (oddCount > 10) then
  begin
    writeln('The largest odd number is: ', maxOdd);
  end
  else
  begin
    writeln('The sum of even numbers is: ', sumEven);
  end;
end.

Этот код сначала запрашивает у пользователя начало и конец диапазона чисел, затем проходит по всем числам в этом диапазоне, подсчитывая нечетные числа и суммируя четные. В конце программа выводит наибольшее нечетное число, если их количество больше 10, или сумму четных чисел, если их количество меньше или равно 10.