fork download
copy 
  1. program SquareNumber;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. var
  6.   intNumber, intSqRt: Integer;
  7. begin
  8.   repeat
  9.     ReadLn(intNumber);
  10.  
  11.     if intNumber <> 0 then
  12.     begin
  13.       intSqRt := Trunc(SqRt(intNumber));
  14.  
  15.       if intSqRt * intSqRt = intNumber then
  16.         WriteLn('[', intNumber:2, '] - is square number')
  17.       else
  18.         WriteLn(intNumber:3, '  - is not square number');
  19.     end;
  20.   until intNumber = 0;
  21. end.
  22.  
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
0
stdout
copy 
  2  - is not square number
  3  - is not square number
[ 4] - is square number
  5  - is not square number
  6  - is not square number
  7  - is not square number
  8  - is not square number
[ 9] - is square number
 10  - is not square number
 11  - is not square number
 12  - is not square number
 13  - is not square number
 14  - is not square number
 15  - is not square number
[16] - is square number
 17  - is not square number
 18  - is not square number
 19  - is not square number
 20  - is not square number
 21  - is not square number
 22  - is not square number
 23  - is not square number
 24  - is not square number
[25] - is square number
https://ideone.com/ThBmp0
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!