Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  hhhhhh
Language: PASCAL
Code:
program cube;
uses wincrt;
var X,a,b,c:integer;
begin
write ('saisir un entier de 3 chiffres');
readln (X);
a:= X div X;
b:= (X mod 100) div 10;
c:= (X mod 100) mod 10;
if a*a*a+b*b*b+c*c*c=X then
begin
write ('l"entier donnée est cube');
end
else
begin
write ('l"entier donnée n"est pas cube');
end;
end.
          
Comments: