Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое. Срочно!! В Паскале через repeat
Ноль считаем, как введенное число?
Да
Var a,b,i:integer; ar:real; begin b:=0; repeat read(a); b:=b+a; i:=i+1; until a = 0; ar:=b / i; writeln('Количество чисел = ', i); writeln('Общая сумма = ', b); writeln('Cреднее арифметическое = ',ar); end.
Спасибо
А б это?
b сумма
Как лучшим ответом сделать?
Точно не знаю, вроде через какое-то время сможешь сделать. Через 2-3 дня вроде.
Ок