Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составе программу которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1088
begin
  Writeln(Сумма четных от 1 до 10 равна ,
    Range(2,10,2).Sum);
  Writeln(Произведение нечетных от 1 до 10 равно ,
    Range(1,10,2).Aggregate((x,y)->x*y))
end.

Результат выполнения программы:
Сумма четных от 1 до 10 равна 30
Произведение нечетных от 1 до 10 равно 945