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

пробелы

Answer 3

нужно использовать цикл не while... do, a "for ... do"

Answer 4

поэтому у меня и не получается

Answer 5

все получается

Answer 6

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