Question

Elaborați un program Pascal să calculeze rădăcina pătrată din un număr.
De exemplu pentru 16 trebuie să dea 4 pe consolă.
Vă rog!

Answer 1

Răspuns:

program radacina_patrata;

var n, r: real;

begin

   write('n= '); read(n);

   if (n<0) then writeln('sorry..., n tr. sa fie nenegativ')

   else begin r:=sqrt(n); writeln('r= ', r); end;

end.

Explicație: