Question

Составить программу, которая считывает число. Если оно неотрицательное, извлекает из него корень, в противном случает выводит соответсвующее сообщение. ПАСКАЛЬ

Answer 1

var number: real;

begin

 readln(number);

 if number > 0 then

   writeln(sqrt(number))

 else writeln('Число меньше 0!');

end.

Answer 2

Var A:real;

Begin

Write('Введите число: ');ReadLn(A);

if A>=0 then A:=sqrtA

else write(a) ;

Write(A);

End.

Answer 3

Для создания программы на Pascal, которая считывает число и выводит корень, если число неотрицательное, или соответствующее сообщение, если число отрицательное, можно использовать следующий код:

pascalCopy code
program SquareRootProgram;

var
  number: real;

begin
  writeln('Введите число:');
  readln(number);

  if number >= 0 then
    writeln('Корень из числа ', number, ' равен ', sqrt(number))
  else
    writeln('Введено отрицательное число, корень из которого невозможно извлечь.');
end.

В этой программе используется переменная number для хранения считанного числа. Затем производится проверка условия: если число больше или равно нулю, программа выводит корень из этого числа с помощью функции sqrt, иначе выводится сообщение о том, что корень невозможно извлечь.