Предмет: Информатика,
автор: dvnikulina20Gay
Срочно!!!!!
составьте программу вычисления суммы кубов простых чисел, лежащих в интервале от М до 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.
Интересные вопросы
Предмет: Окружающий мир,
автор: dbro88219
Предмет: Математика,
автор: Аноним
Предмет: Другие предметы,
автор: 19555555
Предмет: Геометрия,
автор: ЗоРьКа2000
Предмет: Химия,
автор: chtorm99