Предмет: Информатика,
автор: petrovav7878
Даны целые положительные числа. Ввод осуществляется до тех пор, пока не будет введён 0. Найти сумму и среднее арифметическое введённых чисел
Ответы
Автор ответа:
0
===== PascalABC.NET =====
begin
var s, n, p: integer;
s := 0;
n := 0;
repeat
Read(p);
if p = 0 then
break;
s += p;
n += 1
until False;
Write('Сумма = ', s, ', ср.арифм = ', s/n)
end.
Похожие вопросы
Предмет: Математика,
автор: antyni
Предмет: Алгебра,
автор: urazovak9gmailcom
Предмет: Информатика,
автор: PetyhPoimeniPetya
Предмет: Математика,
автор: nastycom12345678
Предмет: Математика,
автор: bullet03z