Помогите пжл выполнить задание по информатику в Паскале: 1. Выполнить произведение первых...

Question

Помогите пжл выполнить задание по информатику в Паскале:
1. Выполнить произведение первых N нечетных чисел;
2. Выведите на экран монитора квадраты первых N натуральных чисел

Answer 1

PascalABC.NET 3.3
begin
  var N := ReadInteger('Введите N:');
  Println('Произведение первых N нечётных чисел равно',
    1.Step(2).Take(N).Aggregate(BigInteger(1), (p, x) -> p * x));
  Println('Квадраты первых N натуральных чисел:');
  1.To(N).Select(x -> x * x).Print;
end.


Пример работы программы:
Введите N: 10
Произведение первых N нечётных чисел равно 654729075 
Квадраты первых N натуральных чисел: 
1 4 9 16 25 36 49 64 81 100

Comments

Надо сделать две программы отдельные

---

Уберите либо 3-4 строчки, либо 5-6, вот вам и отдельные программы.