Question

Паскаль Найти среднее арифметическое нечетных цифр числа. Если таких цифр нет, вывести NO Входные данные Целое число Выходные данные Среднее арифметическое с точностью до 2-х знаков после запятой

Answer 1

Ответ:

begin

 writeln('Введите число: '); var n:=ReadInteger;

 var s:=IntToStr(n); var k:=0; var sum:=0;

 for var i:=1 to length(s) do

   if StrToInt(s[i]) mod 2=0 then begin

     sum:=sum+StrToInt(s[i]); k:=k+1;

   end;

 if k=0 then writeln('Чётных чисел нет') else

 writeln('Среднее арифметическое чётных чисел = ',sum/k);

end.

Answer 2

Для решения данной задачи в языке программирования Паскаль можно использовать следующий алгоритм:

1. Объявить переменные: - number: целое число (входное значение); - count: целое число, счетчик количества нечетных цифр; - sum: вещественное число, сумма всех нечетных цифр; - digit: целое число, текущая цифра числа при обходе его разрядов.

2. Инициализировать переменные: - Присвоить переменной count значение 0; - Присвоить переменной sum значение 0.

3. Организовать цикл, проходящий по каждой цифре числа: - Присвоить переменной digit значение number mod 10 (остаток от деления на 10); - Проверить, является ли digit нечетным числом: - Если да, увеличить переменную count на 1 и прибавить значение digit к переменной sum. - Завершить текущую итерацию цикла с помощью оператора деления number на 10.

4. Проверить значение переменной count: - Если count равно 0, вывести "no" (так как нет нечетных цифр). - Иначе вычислить среднее арифметическое с помощью формулы sum / count и вывести его с точностью до 2-х знаков после запятой.

Вот пример реализации на языке Паскаль:

program AverageOfOddDigits;

var
  number, count, digit: integer;
  sum: real;
  
begin
  readln(number);
  
  count := 0;
  sum := 0;
  
  while number <> 0 do
  begin
    digit := number mod 10;
    
    if digit mod 2 <> 0 then
    begin
      count := count + 1;
      sum := sum + digit;
    end;
    
    number := number div 10;
  end;
  
  if count = 0 then
    writeln('no')
  else
    writeln(sum / count:0:2);
end.

После запуска программы будет предложено ввести целое число. На основе этого числа программа найдет среднее арифметическое нечетных цифр и выведет его в консоль. Если в числе нет нечетных цифр, будет выведено "no".