Question

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

Answer 1

//название
var
  sum, n, count: longint;
begin
repeat
readln (n);
if n in [100..999] then
begin
inc (sum, n);
inc (count);
end;
until n=0;
if count = 0 then write ('No') else write (sum/count);
end.

Answer 2

Вот пример программы на языке Pascal, которая выполняет описанные вами условия:

program AverageOfThreeDigitNumbers;

var
  number, sum, count: integer;

begin
  sum := 0;
  count := 0;

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

repeat
    readln(number);

// Проверка на 3-значное число
    if (number >= 100) and (number <= 999) then
    begin
      sum := sum + number;
      count := count + 1;
    end;

until number = 0;

// Проверка наличия 3-значных чисел в последовательности
  if count > 0 then
  begin
    // Вывод среднего арифметического
    writeln('Среднее арифметическое трёхзначных чисел: ', sum / count);
  end
  else
  begin
    // Если трёхзначных чисел нет
    writeln('NO');
  end;

end.

Программа запрашивает у пользователя натуральные числа, суммирует те, которые являются трёхзначными, и подсчитывает их количество. При вводе числа 0 программа завершает ввод и выводит среднее арифметическое трёхзначных чисел или "NO", если таких чисел не было введено.