fork(17) download
copy 
  1. Program Racine;
  2. Var x : Real;
  3. Begin
  4. Writeln ('Saisir un réel ');
  5. Readln (x) ;
  6. IF x >= 0 Then Writeln ('Racine carrée ', x,' = ', sqrt(x))
  7. Else Writeln ('Donnée incorrecte') ;
  8. End.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
4
stdout
copy 
Saisir un réel 
Racine carrée  4.00000000000000E+000 =  2.0000000000000000E+0000
https://ideone.com/oNltmg
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!