Составьте программу вычисления суммы кубов простых чисел, лежащих в интервале от м до n

nuraneferidxalideemi nuraneferidxalideemi    3   18.07.2019 00:10    1

Ответы
шогвшвгвшр шогвшвгвшр  03.10.2020 06:43
//PascalABC.NET 3.0
begin
  var m := ReadInteger;
  var n := ReadInteger;
  Write(Range(m, n).Where(x -> Range(2, Round(Sqrt(x))).All(y -> x mod y > 0)).Select(x -> x * x * x).Sum)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика