{ Найти наименьшее однозначное число х удолв условию x*x*x-x*x=n. }

 

uses crt;

var x,n : longint;

ot : boolean;

begin

clrscr;

write('n = ');readln(n);

ot:=false;

x:=1;

while (x*x*x-x*xn) do

begin

inc(x);

if x*x*x-x*x=n then ot:=true;

end;

if ot=false then write('нет')

else write('x=',x);

readln;

end.