Racine carré avec turbo pascal

program essai;

uses crt;

var x, racine:real;

begin
     clrscr;
     write('x: ');
     readln(x);
     racine:=sqrt(x);
     writeln('La racine carrée de ',x,' est ',racine);
     readln;
end.

Discussions similaires