Question

Написать програму вычесляющую среднее фрифметическое 3х чисел веденных с клавиатуры использууя цикл for to do

Answer 1

Если у нас 3 числа, то значит среднее арифметическое будет вычисляться так: (число1 + число2 + число3) / 3.
Мы можем сократить число1 + число2 + число3, например суммой всех этих числе сумма / 3.

Поэтому алгоритм должен быть вроде :
 1.создаем переменную для хранения суммы
 2.3 раза читаем число, прибавляем его к общей сумме.
 3.Выводим сумму / 3
-------------------------------------------------------------------------------------
Вот и сам код, думаю на Паскале сойдет:
begin
var mid := 0; //Создаем переменную для хранения суммы всех чисел, после чего разделим ее на 3
for var i := 1 to 3 do //Будем 3 раза считывать число с клавиатурыbegin
var num: integer; //Создаем переменную для хранения текущего числа
readln(num); //Считываем его
mid := mid + num; //Присваиваем mid значение mid + num (текущее число)
end;
writeln(mid/3); //Выводим среднее
end.

Примеры:
-------------------------------------
Ввод: 1,2,3
Вывод: 3
Ведь (1 + 2 + 3) / 3 = 3
-------------------------------------
Ввод: 5, 10, 20
Вывод: 11.(6)
Ведь (5 + 10 + 20) / 3 = 11.(6)
------------------------------------
Ввод: 5, 5, 5
Вывод: 5
и так далее...
-------------------------------------------------------------------
|Если не сложно нажми кнопку "Спасибо" ;)|
-------------------------------------------------------------------

Answer 2

Чтобы написать программу, вычисляющую среднее арифметическое трех чисел, введенных с клавиатуры, можно использовать цикл for..to..do в следующем виде:

program AverageCalculator;

var
  num1, num2, num3: Integer;
  sum: Integer;
  average: Real;

begin
  sum := 0;

// Ввод трех чисел с клавиатуры
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  writeln('Введите третье число: ');
  readln(num3);

// Сумма трех чисел
  sum := num1 + num2 + num3;

// Вычисление среднего арифметического
  average := sum / 3;

// Вывод результата
  writeln('Среднее арифметическое трех чисел: ', average:0:2);

readln;
end.

В данном примере программа сначала объявляет переменные `num1`, `num2` и `num3` для хранения трех введенных чисел, а также переменные `sum` и `average` для хранения суммы и среднего арифметического соответственно.

Затем программа с помощью команды `writeln` запрашивает у пользователя ввести три числа с клавиатуры. Команда `readln` используется для считывания введенных значений и сохранения их в переменных `num1`, `num2` и `num3`.

Далее программа вычисляет сумму трех чисел, просто складывая их значения, и сохраняет результат в переменную `sum`.

Затем программа вычисляет среднее арифметическое, разделяя сумму на количество чисел (в данном случае 3) и сохраняет результат в переменную `average`.

Наконец, программа выводит результат с помощью команды `writeln`, указывая строку с сообщением и значение переменной `average` с точностью до двух знаков после запятой.

Команда `readln` в конце программы используется для ожидания нажатия клавиши пользователем перед закрытием программы. Это позволяет пользователю увидеть результат перед тем, как программа завершится.