Заранее спасибо (PASCAL)
Составьте программу, в которой осуществляется ввод целых двузначных чисел до тех пор, пока их сумма не превысит 1000, подсчитывается и выводится их количество и среднее арифметическое.
Составьте программу, в которой осуществляется ввод целых двузначных чисел до тех пор, пока их сумма не превысит 1000, подсчитывается и выводится их количество и среднее арифметическое.
More Questions From This User See All
Answers & Comments
// PascalABC.NET
begin
var (k, s) := (0, 0);
repeat
var n := ReadInteger;
k += 1;
s += n
until s > 1000;
Print('Количество', k, 'среднее', s/k)
end.