Здравствуйте, кто разбирается в информатике С клавиатуры вводится натуральное число, не превышающее . Вычислите и выведите на экран среднее арифметическое всех чётных цифр этого числа. Если чётных цифр нет, выведите Сообщение «Чётных цифр нет!». Пример: для числа 120459363 среднее арифметическое чётных цифр равно 3. 2-3. С клавиатуры вводится последовательность целых чисел. Окончанием последовательности является ввод числа ноль (сам ноль в обработке не участвует Определите наибольшее расстояние между значениями двух соседних членов этой последовательности. Пример: в последовательности «3 -5 -8 -9 2 4 -3 7 9 0» наибольшее расстояние между значениями двух соседних членов равно 11. ( В Паскале )
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Мегобайт созинде канша байт? а)1 , b)8, с)64 , d)1024
Автор: myxa120283
Решите пример (100011"2+110111"2) × 11" 2
Автор: kosstroy
Почему выбрали такое условие?Для чего ввели переменную">
Автор: mbudilina
Сколько байтов и битов в ФИ бахтиярова на Наргиля даю 35 б
Автор: postbox
На каком расстоянии обычно расположены компьютеры в локальной сети?
Автор: apromovich1
При кодирование числоой информации используется 1. Арабские числа 2. Римские 3. Русские
Автор: Anatolevich1506
Задача 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.