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.

Answer 2

Для начала давайте создадим программу на Python, которая найдет среднее арифметическое чисел, кратных 3, до 20, а затем выведет квадраты и кубы чисел от a до b. Вот программа:

pythonCopy code
# Найдем среднее арифметическое чисел, кратных 3, до 20.
numbers = [x for x in range(1, 21) if x % 3 == 0]
if len(numbers) > 0:
    average = sum(numbers) / len(numbers)
    print(f"Среднее арифметическое чисел, кратных 3, до 20: {average}")
else:
    print("В диапазоне до 20 нет чисел, кратных 3.")

# Введите значения a и b.
a = int(input("Введите значение a: "))
b = int(input("Введите значение b: "))

# Выведем квадраты и кубы чисел от a до b.
print(f"Квадраты и кубы чисел от {a} до {b}:")
for num in range(a, b + 1):
    square = num ** 2
    cube = num ** 3
    print(f"{num}^2 = {square}, {num}^3 = {cube}")

Сначала программа найдет среднее арифметическое чисел, кратных 3, в диапазоне от 1 до 20. Затем она запросит у вас значения a и b и выведет квадраты и кубы чисел от a до b.