Question

Вводится натуральное число : если это число четырехзначное то выяснить является ли последовательность цифр от старшего к младшему арифметич последовательностью; если нет то увеличить число в 2 раза

Answer 1

var n:integer;
a,b,c,d:integer; x,y,z:real;
begin
read(n);
if n>999 then begin
a:=n div 1000;
b:=n mod 1000 div 100;
c:=n mod 100 div 10;
d:=n mod 10 div 1;
x:=(a-b);
y:=(b-c);
z:=(c-d);
if a>b then write(n*2) else if (x=y) and (y=z) then write ('Arif posledovatelnost');
if (x<>y) and (y<>z) then write(n*2);
end
else write('Chislo ne 4 znachnoe');
end.

Answer 2

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

Пример арифметической последовательности от старшего разряда к младшему: 7531 (разность между соседними цифрами: 7-5=2, 5-3=2, 3-1=2).

Давайте напишем простой код на языке программирования Python для решения этой задачи:

# Вводим натуральное четырехзначное число
number = int(input("Введите четырехзначное число: "))

# Проверяем, является ли последовательность цифр арифметической
digits = [int(digit) for digit in str(number)]
is_arithmetic_sequence = all(digits[i] - digits[i-1] == digits[1] - digits[0] for i in range(2, len(digits)))

# Выводим результат
if is_arithmetic_sequence:
    print("Последовательность цифр является арифметической.")
else:
    # Увеличиваем число в 2 раза
    new_number = number * 2
    print(f"Последовательность цифр не является арифметической. Увеличиваем число в 2 раза: {new_number}")

Этот код сначала проверяет, является ли последовательность цифр арифметической, и выводит соответствующее сообщение. Если последовательность не является арифметической, то число увеличивается в 2 раза, и новое число выводится на экран.