Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После...

Question

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

Comments

когда вы научитесь писать язык , на котором нужно кодить в описании? Вот напишу я программу на паскале, а вам , например, надо на питон, и мне и вам плохо

---

Паскаль)

Answer 1

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

Comments

пробелы

---

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

---

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

---

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

---

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