Question

Даны 3 чимла найти среднее арифметическое из них паскаль

Answer 1

Var
a, b, c: integer;
s: real;

begin
writeln('Введите три числа');
readln(a);
readln(b);
readln(c);
s := (a + b + c) / 3;
writeln('Среднее арифметическое трех введенных чисел равно ', s);
end.

Answer 2

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

program Average;
var
  a, b, c: integer;
  average: real;
begin
  writeln('Введите число A:');
  readln(a);
  writeln('Введите число B:');
  readln(b);
  writeln('Введите число C:');
  readln(c);
  
  average := (a + b + c) / 3;
  
  writeln('Среднее арифметическое:', average);
end.

В этом коде мы объявляем три переменные `a`, `b` и `c`, которые будут использоваться для хранения введенных чисел. Затем мы считываем значения для каждой переменной с помощью `readln`. Далее мы вычисляем среднее арифметическое, сложив все три числа и разделив сумму на 3. Результат сохраняется в переменной `average`. Наконец, мы выводим значение среднего арифметического на экран с помощью `writeln`.

Пример использования: ``` Введите число A: 5 Введите число B: 7 Введите число C: 3 Среднее арифметическое: 5 ```

Пожалуйста, обратите внимание, что введенные числа могут быть как целыми, так и дробными. В приведенном коде используется тип данных `integer` для переменных `a`, `b` и `c`, и тип данных `real` для переменной `average`. Если вы хотите использовать дробные числа, вам может потребоваться изменить тип данных переменных и использовать функцию `readln` для чтения дробных чисел.

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать их.