Напишите программный код к следующей задаче:
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. После ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Срочноооооо!
Ответы на вопрос
Ответил renathalimov71p2gare
0
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.
Вот решение.
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
0
я ввела 1,2,3,4 а потом 0 и количество:3,ср ар:3 сумма:9
Ответил renathalimov71p2gare
0
щас исправлю
Ответил katy0865
0
хорошо
Ответил katy0865
0
спасибо
Ответил katy0865
0
исправил?
Новые вопросы