Регистрация
EeOneGuy1997
31.03.2022 21:11
Информатика
Есть ответ 👍

Даны целые положительные числа. ввод осуществляется до тех пор, пока не будет введён 0. найти сумму и среднее арифметическое введённых чисел

119
334
Посмотреть ответы 2

Ответы на вопрос:

ivanovayo08
ivanovayo08
4,6(53 оценок)

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.

fatimo4kkkka
fatimo4kkkka
4,7(81 оценок)
Информационными моделями являются: 2)таблицы 3)словесное описания 4) блок-схемы 6) графы

Популярно: Информатика