Question

Паскаль.На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.

Answer 1

Var
k, i:integer;
SrAr:real;
 
begin
k:=0;
s:=0;
for i:=100 to 300 do
if i mod 10=0 then
  begin
  k:=k+1;
  s:=s+i;
  end; 
SrAr:=s/k;
writeln(Sr:5:2);
end.

Answer 2

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

program AverageMultiplesOfTen;

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

begin
  sum := 0; // инициализируем сумму нулем
  count := 0; // инициализируем счетчик нулем

// проходим по числам от 100 до 300
  for number := 100 to 300 do
  begin
    // проверяем, является ли число кратным 10
    if number mod 10 = 0 then
    begin
      // добавляем число к сумме
      sum := sum + number;
      // увеличиваем счетчик на 1
      count := count + 1;
    end;
  end;

// вычисляем среднее арифметическое
  average := sum / count;

// выводим результат
  writeln('Среднее арифметическое чисел, кратных 10, на интервале от 100 до 300: ', average);
end.

Эта программа начинает с инициализации переменных `sum` и `count` нулевыми значениями. Затем она использует цикл `for` для перебора чисел от 100 до 300. Внутри цикла проверяется, является ли число кратным 10 с помощью оператора деления по модулю (`mod`). Если число кратно 10, оно добавляется к сумме `sum` и счетчик `count` увеличивается на 1.

После завершения цикла, программа вычисляет среднее арифметическое, разделяя сумму на количество чисел. Наконец, результат выводится на экран с помощью процедуры `writeln`.

Если вы скопируете этот код в среду разработки Pascal, скомпилируете и запустите программу, она выведет среднее арифметическое чисел, кратных 10, на интервале от 100 до 300.