28 lines
415 B
Text
28 lines
415 B
Text
|
program Square_but_not_cube;
|
||
|
|
|
||
|
|
{$APPTYPE CONSOLE}
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils,
|
||
|
|
System.Math;
|
||
|
|
|
||
|
|
begin
|
||
|
|
var count := 0;
|
||
|
|
var n := 1;
|
||
|
|
while count < 30 do
|
||
|
|
begin
|
||
|
|
var sq := n * n;
|
||
|
|
var cr := Trunc(Power(sq, 1 / 3));
|
||
|
|
if cr * cr * cr <> sq then
|
||
|
|
begin
|
||
|
|
inc(count);
|
||
|
|
writeln(sq);
|
||
|
|
end
|
||
|
|
else
|
||
|
|
Writeln(sq, ' is square and cube');
|
||
|
|
inc(n);
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$IFNDEF UNIX} readln; {$ENDIF}
|
||
|
|
end.
|