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

Question

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

Comments

Какой язык программирования?

---

pascal

Answer 1

Ответ:

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.

Comments

спасибо