Срочно!!!!!
составьте программу вычисления суммы кубов простых чисел, лежащих в интервале от М до N
Ответы
Ответ дал:
0
//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.
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.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад