Question

Вычеслить среднее арифметическое от 5 до n(n вводится с клавиатуры). В Паскаль)

Answer 1

var s: real; n,i: integer;

begin

write('Введите число N: ');

readln(n);

if n>5 then begin

s:=0;

for i:=5 to n do s:=s+i;

s:=s/(n-5+1);

writeln(s);

end else writeln('Введите другое число, больше 5');

end.

Answer 2

Для вычисления среднего арифметического от 5 до n в Pascal, нужно выполнить следующие шаги:

1. Ввести значение n с клавиатуры.
2. Вычислить сумму всех чисел от 5 до n.
3. Разделить полученную сумму на количество чисел (n - 5 + 1) для получения среднего арифметического.

Вот как это может быть реализовано на Pascal:

pascalCopy code
program AverageFrom5ToN;

var
  n, i, sum: Integer;
  average: Real;

begin
  Write('Введите значение n: ');
  ReadLn(n);

  // Проверяем, что n не меньше 5
  if n < 5 then
  begin
    WriteLn('n должно быть не меньше 5.');
    Exit; // Завершаем программу, если условие не выполняется
  end;

  sum := 0;

  // Считаем сумму чисел от 5 до n
  for i := 5 to n do
    sum := sum + i;

  // Вычисляем среднее арифметическое
  average := sum / (n - 5 + 1);

  WriteLn('Среднее арифметическое от 5 до ', n, ': ', average:0:2);
end.

После запуска программы она запросит ввод значения n с клавиатуры, а затем вычислит и выведет среднее арифметическое всех чисел от 5 до введенного значения n.