Question

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

Answer 1

Ответ:

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.