profile

Опубликовано 5 лет назад по предмету Информатика от dafnochka

Вводиться последовательность ненулевых чисел, 0-конец послодовательности.Определить среднее значение элементов последовательности

  1. Ответ
    Ответ дан Alphaeus

    Program Dafnochka;
    uses crt;
    var
      r,sum: real;
      k:integer;
    begin
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      sum:=0;
      k:=0;
      r:=1;
      writeln('Введите ненулевое число');
      writeln('(или введите 0 для конца последовательности) ');
      while r<>0 do
        begin
          write("Ввод:") ;  
          readln (r);
          sum:=sum+r;
          k:=k+1;  
        end;
      writeln();
      writeln('Всего введено ',k-1,' чисел');
      writeln('Среднее значение равно ',sum/(k-1));
    end.

    Проверено - работает на Паскаль АВС

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Хаааа
Математика - 3 недели назад

150+150=?

Хаааа
Математика - 3 недели назад

150+150=?

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Дашка
Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт


Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.