Заранее спасибо (PASCAL)
Составьте программу, в которой осуществляется ввод целых двузначных чисел до тех пор, пока их сумма не превысит 1000, подсчитывается и выводится их количество и среднее арифметическое.
Ответы
Ответ дал:
2
// PascalABC.NET
begin
var (k, s) := (0, 0);
repeat
var n := ReadInteger;
k += 1;
s += n
until s > 1000;
Print('Количество', k, 'среднее', s/k)
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
7 лет назад