Запрашивая у пользователя произвольные числа,пока не будет введен 0, вычислить сумму этих чисел и их среднее арифметическое

@Vadim050596 · Регистрация: 03.10.2013

Студворк — интернет-сервис помощи студентам

Запрашивая у пользователя произвольные числа,пока не будет введен 0, вычислив сумму этих чисел и их среднее арифметическое.

@erl27 · 14.10.2013, 17:47

Pascal

var
  x, S: real;
  k: integer;
  
begin
  S := 0; //сумма равна 0
  k := 0; //количество чисел равно 0
  repeat
    inc(k); //увеличиваем количество чисел на 1
    write(' x = ');
    readln(x); //вводим x
    S := S + x; //увеличиваем сумму на x
  until x = 0;  
  writeln;
  writeln('Сумма: ', S);
  writeln('Среднее арифметическое: ', (S / (k - 1)):0:5)
end.

@Vadim050596 1 / 1 / 0 Регистрация: 03.10.2013 Сообщений: 34
		1
	Запрашивая у пользователя произвольные числа,пока не будет введен 0, вычислить сумму этих чисел и их среднее арифметическое 14.10.2013, 15:32. Показов 2143. Ответов 1 Метки нет (Все метки) Запрашивая у пользователя произвольные числа,пока не будет введен 0, вычислив сумму этих чисел и их среднее арифметическое. 0

Опции темы

Запрашивая у пользователя произвольные числа,пока не будет введен 0, вычислить сумму этих чисел и их среднее арифметическое

Решение