Question

Напишите программный код к следующей задаче: Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. После ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.Срочноооооо!​

Answer 1

Program mm;

var sum, sred, a, n:Real;

begin

sum:=0;

a := 0;

Read(n);

while n<>0 do begin

a:=a + 1;

sum := sum + n;

sred := sum/a;

Read(n);

end;

WriteLn('Colichestvo:', a);

WriteLn('Spednee:', sred);

WriteLn('Summa:', sum);

end.

Вот решение.

Answer 2

Желаете программный код на каком-либо конкретном языке программирования? Я могу предоставить пример на языке Python:

pythonCopy code
def main():
    total_numbers = 0
    sum_numbers = 0

    while True:
        try:
            number = float(input("Введите число (для завершения введите 0): "))
        except ValueError:
            print("Некорректный ввод. Пожалуйста, введите число или 0 для завершения.")
            continue

        if number == 0:
            break

        total_numbers += 1
        sum_numbers += number

    if total_numbers == 0:
        print("Вы не ввели ни одного числа.")
    else:
        average = sum_numbers / total_numbers
        print(f"Количество чисел: {total_numbers}")
        print(f"Общая сумма чисел: {sum_numbers}")
        print(f"Среднее арифметическое: {average}")

if __name__ == "__main__":
    main()

Этот код позволяет пользователю беспрерывно вводить числа с клавиатуры до тех пор, пока не будет введен 0. После этого программа вычисляет количество введенных чисел, их общую сумму и среднее арифметическое, и выводит эти значения на экран.