Среди пятизначных чисел вычислить среднее арифметическое чисел сумма цифр которых...

Question

Среди пятизначных чисел вычислить среднее арифметическое чисел сумма цифр которых находится в пределах 20-30 Это в паскале нужно

Comments

Попадает ли сумма цифр числа n в диапазон [20;30]-Нет

---

Это Вы сам с собой разговариваете?))))

---

это я ответил на вопрос

---

На какой?

---

который вы задали в задаче, решение котрый вы уже напсали

---

Вы настолько не разбираетесь в программировании, что сочли вопросом комментарий внутри функции, который показывает её назначение. Печально.

---

Функция логического типа. Она отвечает на этот вопрос. Когда попадает - возвращает Истинно, когда не попадает - Ложно.

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
function SodGood(n:integer):boolean;
// Попадает ли сумма цифр числа n в диапазон [20;30]?
begin
  var s:=0;
  while n>0 do begin
    s+=(n mod 10);
    n:=n div 10
    end;
  Result:=(s>=20) and (s<=30)<br>end;

begin
  Print(Range(10000,99999).Where(n->SodGood(n)).Average)
end.

Результат:
57982.8943738243

Answer 2

Function Check(num : integer) : boolean;
var
  sum : integer;
begin
  while num > 0 do
  begin
    sum := sum + num mod 10;
    num := num div 10;
  end;
  
  Result := (sum >= 20) and (sum <= 30);<br>end;

var
  i, len : integer;
  sum : real;
begin
  sum := 0;
  len := 0;

  for i := 10000 to 99999 do
  begin
    if Check (i) then
    begin
      len := len + 1;
      sum := sum + i;
    end;
  end;
  
  writeln('Среднее арифметическое: ', sum / len);
end.