Предмет: Информатика, автор: katy0865

Напишите программный код к следующей задаче:

Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. После ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Срочноооооо!​

Ответы

Автор ответа: renathalimov71p2gare
2
program mm;

var sum, sred, a, n:Real;

begin

sum:=0;

a := 0;

Read(n);

while n<>0 do begin

a:=a + 1;

sum := sum + n;

sred := sum/a;

Read(n);

end;

WriteLn('Colichestvo:', a);

WriteLn('Spednee:', sred);

WriteLn('Summa:', sum);

end.

Вот решение.

katy0865: когда ввожу число оно не считает какая сумма и арифметическое
renathalimov71p2gare: ошибка ?
katy0865: да
renathalimov71p2gare: исправил, попробуй еще раз
katy0865: я ввожу до 0 3 числа а пишет что 2
katy0865: я ввела 1,2,3,4 а потом 0 и количество:3,ср ар:3 сумма:9
renathalimov71p2gare: щас исправлю
katy0865: хорошо
katy0865: спасибо
katy0865: исправил?
Похожие вопросы
Предмет: Английский язык, автор: muzyka167
Предмет: Қазақ тiлi, автор: aruzanamir7