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