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.