Question

составьте программы на языке программирования для решения задачи : Число А вводиться с клавиатуры если оно положительно то извлечь из него квадратный корень иначе возвести его в квадрат результат вывести на экран

Answer 1

На языке Pascal
var   a,r:real;  

begin 
writeln('Введите число');
readln(a);   
   if a>0 then  
   begin     
     r:=sqrt(a);     
     writeln('r= ', r:6:3);   
   end     
 else   
  begin     
    r:=sqr(a);   
    writeln('r= ', r:6:3); 
  end;
end.