Здравствуйте, кто разбирается в информатике С клавиатуры вводится натуральное число, не превышающее 109.
Вычислите и выведите на экран среднее арифметическое всех чётных цифр этого числа.
Если чётных цифр нет, выведите Сообщение «Чётных цифр нет!».
Пример: для числа 120459363 среднее арифметическое чётных цифр равно 3.

2-3. С клавиатуры вводится последовательность целых чисел.
Окончанием последовательности является ввод числа ноль (сам ноль в обработке не участвует).
Определите наибольшее расстояние между значениями двух соседних членов этой последовательности.
Пример: в последовательности «3 -5 -8 -9 2 4 -3 7 9 0» наибольшее расстояние между значениями двух соседних членов равно 11.
( В Паскале )

var a,b,c,d,res: integer;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

write('Введите d: ');

readln(d);

res := a;

// Проверяем число b

if (b mod 10 > res mod 10) then res:=b

else if (b mod 10 = res mod 10) then

 begin

 if (res<b) then res:=b;

 end;

// Проверяем число c

if (c mod 10 > res mod 10) then res:=c

else if (c mod 10 = res mod 10) then

 begin

 if (res<c) then res:=c;

 end;

// Проверяем число d

if (d mod 10 > res mod 10) then res:=d

else if (d mod 10 = res mod 10) then

 begin

 if (res<d) then res:=d;

 end;

writeln('Число с наибольшей последней цифрой: ',res);

end.

var a,b,c,d,res: integer;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

write('Введите d: ');

readln(d);

res := a;

// Проверяем число b

if (b mod 10 > res mod 10) then res:=b

else if (b mod 10 = res mod 10) then

 begin

 if (res<b) then res:=b;

 end;

// Проверяем число c

if (c mod 10 > res mod 10) then res:=c

else if (c mod 10 = res mod 10) then

 begin

 if (res<c) then res:=c;

 end;

// Проверяем число d

if (d mod 10 > res mod 10) then res:=d

else if (d mod 10 = res mod 10) then

 begin

 if (res<d) then res:=d;

 end;

writeln('Число с наибольшей последней цифрой: ',res);

end.