Знайти суму чисел менших 50 і парних (> 0)

игоревич159753 игоревич159753    3   21.09.2019 19:10    0

Ответы
37к6 37к6  08.10.2020 07:48
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Сумма ',2.Step(2).TakeWhile(t->t<50).Sum)
end.

Результат
Сумма 600
ПОКАЗАТЬ ОТВЕТЫ
Denis4345 Denis4345  08.10.2020 07:48
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  Println('Сумма:',Range(2,48,2).Aggregate((m,n)->m+n))
end.

ответ:
  Сумма: 600 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика