Составить программу, которая выводит на экран кубы всех чисел, кратных
9 из диапазона [a,b] (где a,b<100). Переменные a и b запрашиваются с
клавиатуры.

Question

Информатика: Составить программу, которая выводит на экран кубы всех чисел, кратных 9 из диапазона [a,b] (где a,b 100). Переменные a и b запрашиваются с клавиатуры.

Персик1лайм · Accepted Answer

// 4
begin
var arr := ArrRandom();
Sort(arr);
arr.Println;
Print('Sum of odd''s elements'' square roots is ',
arr.Where(el -> el.IsOdd).Sum(el -> el.Sqrt));
end.

// 5
begin
var arr := ArrRandom(14);
Sort(arr);
WritelnFormat('Max = {0}, Min = {1}, Max - Min = {2}',
arr.Max, arr.Min, (arr.Max - arr.Min));
end.

// 6
begin
var arr := ArrRandom();
Sort(arr);
arr.Println;
Print('Count = ' + arr.Where(el->(el>20) and (el<50)).Count + newline +
'Product = ' + arr.Where(el->(el>20) and (el<50)).Aggregate(1,(p,x)->p*x));
end.

Составить программу, которая выводит на экран кубы всех чисел, кратных 9 из диапазона [a,b] (где a,b<100). Переменные a и b запрашиваются с клавиатуры.

MOGZ ответил

Составить программу, которая выводит на экран кубы всех чисел, кратных
9 из диапазона [a,b] (где a,b<100). Переменные a и b запрашиваются с
клавиатуры.