Question

Введите число, если оно не отрицательное, то найдите каадратный корень, иначе вычислите обратное число.

Answer 1

Var a:real;
begin
writeln('введите число');readln(a);
if(a>=0) then writeln(sqrt(a):4:1) else writeln((1/a):4:1);
end.

Answer 2

Здравствуйте! Я могу помочь вам с вашим вопросом. Для начала, давайте разберемся в задаче.

Вы хотите написать программу, которая будет принимать число, и если оно неотрицательное, то найдет квадратный корень этого числа. В противном случае, программа должна вычислить обратное число. Я правильно понял?

Если да, то вот как может выглядеть решение на языке Python:

import math

def calculate(number):
    if number >= 0:
        square_root = math.sqrt(number)
        return square_root
    else:
        inverse_number = 1 / number
        return inverse_number

# Пример использования
input_number = float(input("Введите число: "))
result = calculate(input_number)
print(f"Результат: {result}")

В этом коде используется функция `calculate`, которая принимает число и проверяет его на отрицательность. Если число неотрицательное, она вычисляет квадратный корень с помощью функции `sqrt` из модуля `math`. Если число отрицательное, она вычисляет обратное число, делая его равным 1 деленному на исходное число.

Затем, в примере использования, мы запрашиваем у пользователя ввод числа, передаем это число в функцию `calculate`, и выводим результат.

Если вам нужна помощь с другим языком программирования или каким-либо другим аспектом решения, пожалуйста, дайте мне знать!