Question

Найти среднее арифметическое всех натуральных чисел из заданного диапазона, которые оканчиваются на нечетную цифру и не кратны 5. Гарантируется, что в заданном диапазоне будет хотя бы одно такое число.
Паскаль, желательно цикл с for

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadInteger2('Введите границы диапазона a и b:');

 var (s, n) := (0, 0);

 for var x := a to b do

   if x.IsOdd and (x mod 5 <> 0) then (s, n) := (s + x, n + 1);

 Println(s / n)

end.

Пример

Введите границы диапазона a и b: 15 149

82.5185185185185