fork download
copy 
  1. program ideone;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. var
  6.   x: integer;
  7. begin
  8.   writeln('Podaj kwadrat');
  9.   Readln(x);
  10.  
  11.   if (sqrt(x)*sqrt(x))=x then
  12.     write(x,' jest liczba kwadratowa')
  13.   else
  14.     write('podana liczba calkowita nie jest liczba kwadratowa');
  15. end.
  16.  
Success #stdin #stdout 0s 280KB
comments (?)
stdin
copy 
5
stdout
copy 
Podaj kwadrat
5 jest liczba kwadratowa
https://ideone.com/OK9DWr
language:
Pascal (fpc 3.0.4)
created:
8 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!