Program Nbr_Cube; Var k, c, d, u : Integer; Begin For k:=100 To 999 Do Begin c:=k div 100; d:=(k div 10) mod 10; u:=k mod 10; If (u*u*u+d*d*d+c*c*c) = K Then Writeln (k, ' est un nombre cubique'); End; End.
Standard input is empty
153 est un nombre cubique 370 est un nombre cubique 371 est un nombre cubique 407 est un nombre cubique