Как найти среднее арифметическое 3 чисел в Pascal

Нахождение среднего арифметического трех чисел — это распространенная задача, возникающая в программировании и математике. Среднее арифметическое представляет собой сумму всех чисел, деленную на их количество. Сегодня мы разберём частный случай, нахождения среднего арифметического 3 чисел на языке программирования Pascal.

Давайте сначала посмотрим на код программы, а после подробно разберём его работу.

Код программы

program AverageExample;

var
    a, b, c: integer;
    average: real;

begin
    writeln('Введите три числа: ');
    readln(a, b, c);

    average := (a + b + c) / 3;

    writeln('Среднее арифметическое чисел ', a, ', ', b, ' и ', c, ' равно ', average:0:2);
end.

Объяснение кода

1. program AverageExample; — Это ключевое слово program, за которым следует название программы (AverageExample), определяет начало программы.
2. var a, b, c: integer; average: real; — Здесь мы объявляем переменные. a, b и c — это целочисленные переменные, в которые будут сохранены введенные пользователем числа. average — переменная типа real, в которой будет храниться среднее арифметическое чисел.
3. begin — Обозначает начало основного исполняемого блока программы.
4. writeln('Введите три числа: '); — Эта строка выводит на экран приглашение пользователю ввести три числа.
5. readln(a, b, c); — В этой строке пользователь вводит три числа, которые будут сохранены в переменные a, b и c.
6. average := (a + b + c) / 3; — В этой строке вычисляется среднее арифметическое трех чисел. Сначала суммируются числа a, b и c, а затем результат делится на 3 и сохраняется в переменную average.
7. writeln('Среднее арифметическое чисел ', a, ', ', b, ' и ', c, ' равно ', average:0:2); — Эта строка выводит на экран сообщение о среднем арифметическом чисел a, b и c, а также выводит само среднее арифметическое с точностью до двух десятичных знаков.
8. end. — Обозначает конец основного исполняемого блока программы.