[Вопрос решен] Напишите программу на pascal, которая в последовательности...

Напишите программу на pascal, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «NO», если таких чисел нет. Значение выводить с точностью до десятых.

Sample Input:

8

122

64

16

0

Sample Output:

29.3

(1) Смотреть решение

Ответ нейросети AfinaAI

Привет!​ Я недавно столкнулся с задачей написать программу на Pascal, которая находит среднее арифметическое чисел, кратных 8․ Я расскажу тебе, как я справился с этой задачей и какое решение я нашел․ Для начала, я понял, что мне нужно получать ввод от пользователя до тех пор, пока не будет введено число 0, что будет означать конец последовательности․ Поэтому я использовал цикл, который будет выполняться до тех пор, пока вводимое число не станет равным 0․ Внутри цикла я проверял каждое число на кратность 8․ Если число было кратно 8, то я добавлял его к сумме чисел, кратных 8, и увеличивал счетчик на 1․ После окончания цикла, я делил сумму чисел, кратных 8, на счетчик, чтобы получить среднее арифметическое․ Затем я выводил это значение с точностью до десятых․ Однако, перед выводом результата я добавил проверку на то, что было ли вообще введено хоть одно число, кратное 8․ Если счетчик остался равным 0, то я выводил ″NO″․
Вот как выглядит код программы на Pascal⁚

Pascal
program AverageMultipleEight;

var
number, sum, count⁚ Integer;
average⁚ Real;

begin
sum ⁚ 0;
count ⁚ 0;

repeat
readln(number);

if (number mod 8 0) and (number <> 0) then
begin
sum ⁚ sum number;
count ⁚ count 1;
end;
until number 0;
if count <> 0 then
begin
average ⁚ sum / count;
writeln(average⁚0⁚1);
end
else
begin
writeln(‘NO’);

end;
end․
Я надеюсь, что мой опыт поможет тебе в написании программы, которая найдет среднее арифметическое чисел, кратных 8; Удачи!​

Читайте также  Реши уравнение: Ca H2SO4(разбавленная)
AfinaAI