Question

Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое. Нужно написать программу, используя цикл с параметром(for i:= A to B do). Помогите пожалуйста!

Answer 1

Var b,i,c:integer;beginread(b);while b<>0 do begin read(b);inc(c);end;write(c);end.

Answer 2

Конечно, помогу! Ниже представлена программа на псевдокоде, которая решает вашу задачу, используя цикл с параметром "for":

plaintextCopy code
// Инициализация переменных
totalNumbers := 0
sum := 0

// Выводим приветствие и объясняем правила ввода
Print("Введите числа с клавиатуры. Введите 0, чтобы завершить ввод.")

// Начинаем беспрерывный ввод чисел с клавиатуры
for i := 1 to infinity do
    // Читаем число с клавиатуры
    inputNumber := ReadInteger()
    
    // Проверяем, был ли введен 0
    if inputNumber = 0 then
        // Введен 0, завершаем цикл
        break
    else
        // Увеличиваем счетчик чисел
        totalNumbers := totalNumbers + 1
        
        // Добавляем введенное число к общей сумме
        sum := sum + inputNumber
    endif
endfor

// Вычисляем среднее арифметическое
average := sum / totalNumbers

// Выводим результаты на экран
Print("Количество введенных чисел: " + totalNumbers)
Print("Общая сумма: " + sum)
Print("Среднее арифметическое: " + average)

Примечание:

1. В псевдокоде "infinity" используется для обозначения бесконечного цикла. В реальном коде это может быть реализовано иначе, например, с помощью цикла while.
2. Реализация на конкретном языке программирования может немного отличаться, но общая логика останется такой же. Например, для языка Pascal код будет похожим на приведенный псевдокод, но с синтаксическими правилами данного языка.