1. Информатика
  2. Программа, принимающая

Программа, принимающая целые числа до тех пор, пока не будет введён «0». По завершению ввода чисел программа должна подсчитать среднее арифметическое введённых чисел. Использовать цикл while

Kamilla0707 Kamilla0707    1   11.05.2020 10:42    0

Ответы
эмир31 эмир31  14.10.2020 13:01

program Hello;

var c:integer; a,b:real;

begin

 a:=1; b:=0; c:=0;

 while a <> 0 do begin

 writeln ('Введите число: ');

 readln(a);

 b := a + b;

 c := c + 1;

 end;

 b := b / c;

 writeln ('Среднее арифмитическое чисел равно ', b);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
РОЗОЧКА37563 РОЗОЧКА37563  07.04.2020 02:53
Нужно составить программу 1. Дано вещественное число X и целое число N ( 0). Найти значение выражения 1 + X + X^2 + : : : + X^N 2. На воду опущен шар радиуса r, изготовленный из вещества...
джопер джопер  07.10.2019 02:30
Ввести целое число и определить верно ли что все его цифры чётныеответ в стиле если цифры делятся на 2 не язык pascal...
Devyshkaleto2017 Devyshkaleto2017  13.05.2021 15:10
5. (А. Кабанов) Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. В ответе...
филя24 филя24  13.05.2021 15:09
Установите соответствие между угрозами при работе в сети Интернет и их описаниями. Количество соединений: 6мошенничество-доступ к материалам с нежелательным содержанием-троллинг и...
Artyr2017 Artyr2017  13.05.2021 15:07
A) Установите линиями соответствие (либо цифрам буквы): 1) Ві утрисистемные гиперссылкиA) Ссылки на страницы, расположенные на удаленных веб-узлах2) Ві-утристраничные гиперссылкиБ)...
Kozlov24ivan122 Kozlov24ivan122  02.06.2019 13:20
1). дан массив из n элементов (n = 4). подсчитать среднюю арифметическую второго и предпоследнего элемента массива. 2). дан массив из n элементов. написать программу подсчитывающую...
Mom34 Mom34  02.06.2019 13:20
Если число, введенное с клавиатуры четырехзначное и делится на 5, то вывести слово удача , в противном случае неудача...
mmv2721ozx8sx mmv2721ozx8sx  02.06.2019 13:20
Паскаль! 5. дано трехзначное число. кратна ли сумма его цифр семи? 8. дано три натуральных числа x, y, z. вычислить количество чисел меньших 50. 10. даны два вещественных числа. уменьшить...
Шишка33333333333333 Шишка33333333333333  12.06.2019 12:00
Укажите суффикс глагола времени. а) е б) ил в) ал г) л д) ти...
Имом Имом  12.06.2019 12:00
Разбор слова под цифрой 2 маленькими...

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