Question

Написать программу 1)которая записывает заданные четехзначные числа наоборот 1234 4321 2) вычислить значение функции Y= корень из x^2+1 - 2x^2-3/5

Answer 1

1)var
 n,n2,k:integer;
begin
 readln(n);
 k:=1000;
 while n<>0 do
  begin
   n2:=n2+k*(n mod 10);
   n:=n div 10;
   k:=k div 10;
  end;
writeln(n2);
end.

2)var
 x,y:real;
begin
 readln(x);
 y:=sqrt(sqr(x)+1)-2*sqr(x)-3/5;
 writeln(y);
end.
1*)//Pascal ABC. NET v3.0 сборка 1111
var
 s:string;
begin
 readln(s);
 s.Reverse.Print('');
end.

Answer 2

Конечно, я могу помочь с написанием программы на каком-либо языке программирования для выполнения указанных задач.

Программа для обращения четырехзначных чисел:

Пример на Python:

def reverse_four_digit_number(number):
    if 1000 <= number <= 9999:
        reversed_number = int(str(number)[::-1])
        return reversed_number
    else:
        return "Введите четырехзначное число."

# Пример использования
input_number = int(input("Введите четырехзначное число: "))
result = reverse_four_digit_number(input_number)
print(f"Обратное число: {result}")

Программа принимает четырехзначное число, затем использует срез строки `[::-1]` для инвертирования порядка цифр и возвращает результат.

Программа для вычисления значения функции Y:

Пример на Python:

import math

def calculate_y(x):
    y = math.sqrt(x2 + 1) - (2 * x2 - 3) / 5
    return y

# Пример использования
input_x = float(input("Введите значение x: "))
result_y = calculate_y(input_x)
print(f"Значение функции Y: {result_y}")

Программа принимает значение `x`, вычисляет значение функции Y по заданной формуле и выводит результат. Обратите внимание, что `math.sqrt` используется для вычисления квадратного корня.