Question

1)вводите вещественные числа до появления 0 (признак конца последовательности)2)Требуется напечатать среднее арифметическое введенных чисел (Минимальное количество переменных 3) Написать программу на языке Паскаль!!!!!!!!!!!!!

Answer 1

Подробное решение внутри вложенного файла

Answer 2

Ввод вещественных чисел до появления 0

Для решения данной задачи на языке Паскаль, вы можете использовать цикл, который будет выполняться до тех пор, пока пользователь не введет число 0. В каждой итерации цикла, вы будете запрашивать у пользователя ввод числа и сохранять его в переменную. Затем, вы будете проверять значение этой переменной: если оно равно 0, то цикл завершается, иначе вы продолжаете считывать числа.

Вот пример программы на языке Паскаль, которая решает данную задачу:

program AverageCalculator;

var
  number: real;
  sum: real;
  count: integer;

begin
  sum := 0;
  count := 0;
  
  repeat
    write('Введите число (0 для завершения): ');
    readln(number);
    
    if number <> 0 then
    begin
      sum := sum + number;
      count := count + 1;
    end;
  until number = 0;
  
  if count > 0 then
    writeln('Среднее арифметическое введенных чисел: ', sum / count)
  else
    writeln('Вы не ввели ни одного числа.');
end.

В этой программе мы используем переменные `number`, `sum` и `count`. Переменная `number` используется для хранения введенного числа, `sum` - для суммирования всех введенных чисел, а `count` - для подсчета количества введенных чисел.

Цикл `repeat...until` выполняется до тех пор, пока пользователь не введет число 0. В каждой итерации цикла мы запрашиваем у пользователя ввод числа и проверяем его значение. Если число не равно 0, то мы добавляем его к сумме и увеличиваем счетчик на 1.

После завершения цикла, мы проверяем значение счетчика `count`. Если оно больше 0, то выводим среднее арифметическое введенных чисел, иначе выводим сообщение о том, что пользователь не ввел ни одного числа.

Примечание: Программа предполагает, что пользователь будет вводить только вещественные числа. Если пользователь введет что-то другое, программа может выдать ошибку или некорректный результат. Если вам нужно обрабатывать другие типы данных, вам потребуется внести соответствующие изменения в программу.

Источник: