Question

Составте программу для задачи Нахождение среднего арифметического чисел до 20 кратных 3 Ввести a и b и вывести квадраты и кубы чисел от a до b

Answer 1

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var a := SeqWhile(1, i -> i + 1, i -> i < 20);
    Println(a);
    Println(a.Where(x -> x mod 3 = 0).Average);
    Writeln();
    
    for var i := ReadInteger('a =') to ReadInteger('b =') do
        writeln(i, ' ', i * i, ' ', i * i * i);
end.