Вопрос задан 05.11.2023 в 01:46. Предмет Информатика. Спрашивает Сағынғанова Ханшайым.

Здравствуйте, кто разбирается в информатике, прошу помогите ! 1-3. С клавиатуры вводится

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

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Котелева Дарья.

Задача 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.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

1. Для решения первой задачи, необходимо использовать цикл, чтобы получить каждую цифру числа, и проверить, является ли она четной. Если ответ положительный, то добавить эту цифру к сумме и увеличить счетчик четных цифр. После прохода по всем цифрам, вычислить среднее арифметическое, разделив сумму на количество четных цифр. Если счетчик равен 0, вывести сообщение "Четных цифр нет!".

Вот пример кода на языке Python:

number = int(input("Введите число: ")) sum_of_evens = 0 count_of_evens = 0

while number > 0: digit = number % 10 if digit % 2 == 0: sum_of_evens += digit count_of_evens += 1 number //= 10

if count_of_evens > 0: average = sum_of_evens / count_of_evens print("Среднее арифметическое четных цифр:", average) else: print("Четных цифр нет!")

2. Для решения второй задачи, нужно использовать цикл для ввода чисел и проверки на равенство нулю. При каждой итерации, вычислить разницу между текущим и предыдущим числами и сравнить с максимальным расстоянием. Если текущая разница больше максимального расстояния, обновить его значение. В конце вывести найденное наибольшее расстояние.

Вот пример кода на языке Python:

sequence = [] number = None max_distance = 0

while number != 0: number = int(input("Введите число (0 для окончания ввода): ")) sequence.append(number)

for i in range(1, len(sequence)): distance = abs(sequence[i] - sequence[i-1]) if distance > max_distance: max_distance = distance

print("Наибольшее расстояние между соседними членами последовательности:", max_distance)

Оба примера кода реализованы на языке программирования Python, но вы можете использовать любой другой язык программирования, с которым вам удобно работать.

0 0

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос