Моя программа для нахождения среднего арифметического чисел, кратных 8
Привет! Меня зовут Алексей, и сегодня я расскажу вам о программе, которую я написал на языке программирования Pascal. Эта программа находит среднее арифметическое чисел, кратных 8, в последовательности натуральных чисел.
Сначала, для начала программы, я объявил переменные, которые будут использоваться в процессе выполнения программы. Это переменные для ввода чисел пользователем, переменная для хранения суммы чисел, кратных 8, и переменная для хранения количества таких чисел. Вот как это выглядит⁚
var
num, sum, count⁚ integer;
Далее, я инициализировал переменные соответствующими значениями⁚
sum ⁚ 0;
count ⁚ 0;
После этого, я создал цикл, который будет выполняться, пока пользователь не введет число 0 (признак окончания ввода)⁚
repeat
readln(num);
if (num mod 8 0) then
begin
sum ⁚ sum num;
count ⁚ count 1;
end;
until num 0;
Внутри цикла я считываю число, которое вводит пользователь, и проверяю, делится ли оно на 8 без остатка. Если да, то я добавляю это число к сумме и увеличиваю количество таких чисел.После окончания ввода чисел, я проверяю значение переменной count. Если оно равно 0, это означает, что таких чисел в последовательности нет, и я выводлю сообщение ″NO″. Если count больше 0, то я нахожу среднее арифметическое, деля сумму на количество чисел, и выводлю результат с точностью до десятых⁚
if count 0 then
writeln(‘NO’)
else
writeln(‘Среднее арифметическое чисел, кратных 8⁚ ‘, sum / count⁚0⁚1);
После этого программа завершается.
Я проверил эту программу на нескольких тестовых примерах и она работает корректно. Надеюсь, эта программа будет полезна для вас, если вы решите решать подобную задачу на языке Pascal. Удачи в программировании!