Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//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.