Здравствуйте, кто разбирается в информатике С клавиатуры вводится натуральное число, не превышающее 
.
Вычислите и выведите на экран среднее арифметическое всех чётных цифр этого числа.
Если чётных цифр нет, выведите Сообщение «Чётных цифр нет!».
Пример: для числа 120459363 среднее арифметическое чётных цифр равно 3.
2-3. С клавиатуры вводится последовательность целых чисел.
Окончанием последовательности является ввод числа ноль (сам ноль в обработке не участвует).
Определите наибольшее расстояние между значениями двух соседних членов этой последовательности.
Пример: в последовательности «3 -5 -8 -9 2 4 -3 7 9 0» наибольшее расстояние между значениями двух соседних членов равно 11.
( В Паскале )
leha2018
3
17.02.2021 19:41
1
Другие вопросы по теме Информатика
прог13
05.04.2020 09:50
Dogerman11
05.04.2020 09:49
andreytolstik
26.12.2019 11:31
fgtfbn1347837
26.12.2019 11:20
MainkraeTV
16.03.2022 03:15
beknurr546ozpknp
16.03.2022 03:18
Oneheest
16.03.2022 03:29
Зайчонок512
21.06.2020 14:39
Популярные вопросы
- 44 жаттығу 58 бет 4 сынып Сөз тіркестерін оқып, мығынасын түсіндір...
3 - ответь на вопросы: Какие важные открытия были сделаны в ХХ веке...
3 - Утворіть з розповідних речень питальні без питального слова 1.wir...
1 - Уравнение координаты точки имеет вид у = 4 + 15t +gt22. а) определить...
1 - С очень высокой высоты объект был брошен в горизонтальном направлении...
2 - )) за нормальный ответ упростите выражение 9a+6b/x^2-36 : 6a+4b/x^2+12x+36...
2 - Тойымсыздық сыры неде?(ой толғау жазу)...
1 - Мәтінде қай мұхит туралы айтылған? Жер шарындағы ең үлкен және...
3 - Read and match the word to its definition. Use the text to help...
3 - Напишите письмо другу (подруге) о своем летнем путешествии 5-7...
3
Задача 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.