1. Информатика
  2. Даны целые положительные

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

vladkorkin75 vladkorkin75    3   15.01.2020 11:49    1

Ответы
modar55 modar55  11.10.2020 00:52

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mmmmm269 mmmmm269  03.02.2021 20:34
Автомат получат на вход пятизначное число. строиться новое десятичное число по правилам: 1. Вычисляются два числа- сумма первой, третьей и пятой цифр и сумма второй и четвертой заданного...
risj83risj risj83risj  14.05.2020 16:50
На вході маємо будь-яке число, яке запитується у користувача з повідомлення. Доки це число не перевершуватиме 80 воно буде збільшуватися у 2 рази та виводитися кожне нове значення...
iluasdjoo iluasdjoo  14.05.2020 16:51
Запишите значение переменной sum после выполнения фрагмента программы Sum:=0; for i:=5 to 9 do sum:=sum+i;...
Bogatuk2005 Bogatuk2005  14.05.2020 16:51
Какое наименьшее целое значение к необходимо подать на вход программы,Чтобы в результате сї выполнения напечаталось число 14?ТТЕНТТЕРPythonТенеinclude iostreantk= int (input (!)5...
МаринаДоблер МаринаДоблер  25.05.2020 08:59
Тест «функции Паскаль» Задание #1 Вычислить round(0.1) Задание #2 Вычислить frac(-4.1) Задание #3 Вычислить round(-4.7) Задание #4 Вычислить trunc(-1.4) Задание #5 Вычислить abs(1.9)...
localhend localhend  25.05.2020 09:02
Не могу сделать Задание 1 Работа с текстом1. Создать новый Документ и установить следующие параметры страницы: левое поле – 3,4 см, правое 2,25 см, верхнее и нижнее – 1,8 см; ориентация...
mastermin mastermin  25.06.2020 19:21
Решите задачки на определения токов в ветвях сколько сможете)пазазя...
botpolikop20181 botpolikop20181  25.06.2020 19:57
Как экспериментально определить магнитную индукцию точки магнитного поля (краткое описание эксперимента)? https://youtu.be/u91qPfQFc08...
dvoeshnik101 dvoeshnik101  25.06.2020 19:54
В правильной треугольной призме АВСА₁В₁С₁, все рёбра которой равны 2, найдите угол между прямыми ВВ₁ и АС₁ напишите подробно...
romanovegorka6 romanovegorka6  25.06.2020 19:58
Pythonwars4: решите на python используя только модуль math: 1)2)тот кто сделает самый производительный код, получит самый лучший ответ Удачи! ​...

Популярные вопросы