Предмет: Информатика,
автор: katy0865
Напишите программный код к следующей задаче:
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. После ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Срочноооооо!
Ответы
Автор ответа:
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.
Вот решение.
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:
когда ввожу число оно не считает какая сумма и арифметическое
Похожие вопросы
Предмет: Английский язык,
автор: muzyka167
Предмет: Қазақ тiлi,
автор: aruzanamir7
Предмет: Алгебра,
автор: SammyBoy1748
Предмет: Математика,
автор: Аноним