Question

СРОЧНО!!! ПОМОГИТЕ
рассматривается множество целых чисел,принадлежащих числовому отрезку [1476 ,7039],которые удовлетворяют следующим условиям:
-кратны 2,но не кратны 16;
-цифра в разряде десятков не менее 4;
Найдите количество таких чисел и среднее арифметическое минимального и максимального числа. В ПАСКАЛЕ!!!​

Answer 1

Программа:

var

i,a,b,n: integer;

begin

for i:=1476 to 7039 do

if (i mod 2 = 0) and (i mod 16 <> 0) then

if ((i div 10) mod 10 >= 4) then

begin

n:=n+1;

if a=0 then a:=i;

if a>i then a:=i;

if b<i then b:=i;

end;

writeln('количество= ',n);

writeln('средн.арифм. от мин. и макс.= ',(a+b)/2);

end.

Результат её работы:

количество= 1455

средн.арифм. от мин. и макс.= 4237