Дано число, если оно больше или равно нулю, то извлечь из него квадратный корень, иначе...

Question

Дано число, если оно больше или равно нулю, то извлечь из него квадратный корень, иначе возвести в квадрат.

Answer 1

Var a:real;

begin

read (a);

If a>=0 then a:=sqrt(a) else a:=sqr(a);

write (a:3:2);

end.

Answer 2

P.S Программанаписна для Pascal.

program chislo;

var

n, s, k :real;

begin

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

 read(n);

 if n>=0 then

   begin

     s:=sqrt(n);

     writeln('Квадратный корень числа: ',s);

   end

 else

   begin

     k:=sqr(n);

     writeln('квадрат числа: ',k);

   end;

end.