Question

Помогите написать программу в Pascal.Задано число,если оно находится в диапазоне [0,10] то данное число возвести в квадрат, если нет, то вычислить квадратный корень из числа ​

Answer 1

Program zadacha;

var x:integer;

begin

 readln(x);

 if (x>=0) and (x<=10) then writeln(x*x)

                               else writeln(sqrt(x));

end.

Объяснение:

Answer 2

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

pascalCopy code
program SquareOrSquareRoot;

var
  num, result: real;

begin
  // Ввод числа от пользователя
  Write('Введите число: ');
  ReadLn(num);
  
  // Проверка, находится ли число в диапазоне [0, 10]
  if (num >= 0) and (num <= 10) then
  begin
    // Возводим число в квадрат, если оно в диапазоне [0, 10]
    result := num * num;
    WriteLn('Результат: ', result);
  end
  else
  begin
    // Вычисляем квадратный корень, если число не входит в диапазон [0, 10]
    if num >= 0 then
    begin
      result := sqrt(num);
      WriteLn('Результат: ', result);
    end
    else
      WriteLn('Введено отрицательное число. Вычисление квадратного корня невозможно.');
  end;
end.

Пользователю будет предложено ввести число, после чего программа проверит, находится ли оно в диапазоне [0, 10]. Если да, то число будет возведено в квадрат и выведено на экран. Если число не входит в указанный диапазон, программа вычислит квадратный корень из числа и выведет результат на экран. Если пользователь введет отрицательное число, программа сообщит, что вычисление квадратного корня невозможно.