1) Составьте программку вычисления произведения чисел от 1 до 10 (1*2*3*..*)

1) Составьте программу вычисления творения чисел от 1 до 10 (1*2*3*..*) 2)Составьте программу, которая находит сумму четных чисел и творение нечетных чисел в спектре от 1 до 10
3)Составьте программку, которая обретает сумму квадратов чисел от 1 до 10

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=Range(1,10);
  Writeln(s.Aggregate(1,(p,q)-gt;p*q));
  Writeln('S=',s.Where(k-gt;k.IsEven).Sum,', П=',
      s.Where(k-gt;k.IsOdd).Aggregate(1,(p,q)-gt;p*q));
  Writeln('S2=',s.Select(k-gt;k*k).Sum)
end.

Итог
3628800
S=30, П=945
S2=385

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт