Question

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

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

Answer 1

Задача 1:

var x:longint;

   i,c,sum:integer;

begin

   c:=0;

   sum:=0;

   write('Введите число: '); readln(x);

   while x <> 0 do begin

       i:=x mod 10;

       x:=x div 10;

       

       if i mod 2 = 0 then begin

           c:=c+1;

           sum:=sum+i;

       end;

   end;

   if c > 0 then write('Среднее арифметическое всех чётных чисел равно: ', sum/c:0:2)

   else write('Чётных цифр нет!');

end.

Задача 2:

var x,y,sum:integer;

begin

   sum:=0;

   y:=0;

   while True do begin

       write('Введите число: '); readln(x);

       if x = 0 then break

       else if abs(x-y) > sum then sum:=abs(x-y);

       y:=x;

   end;

   write(sum);

end.