Рассматривается множество целых чисел, принадлежащих числовому отрезку [2476; 7857], которые удовлетворяют следующим условиям:− кратны 2, но не кратны 8;− цифра в разряде сотен не превосходит 7. Найдите количество таких чисел и среднее арифметическое минимального и максимального из них (для второго числа запишите только целую часть). В ПАСКАЛЕ

Free Pascal

var

i, min, max, numC : integer;

begin

numC:=0;

min:=7857;

max:=2476;

for i:= 2476 to 7857 do

if (i mod 2=0) and (i mod 8 <>0) and (trunc(i/10) mod 10 <=7) then begin

inc(numC);

if i > max then max := i;

if i < min then min := i;

end;

writeln('Кол-во чисел=',numC);

writeln('Среднее арифметическое (min & max)=', trunc((max+min)/2));

end.