Soru 13: Üç basamaklı ve rakamlarının küplerinin toplamı kendine eşit olan sayıları bulan program

 

{Üç basamaklı ve rakamlarının küpleri toplamı kendine eşit} {olan sayıları bulan program}

program kuptop;

uses crt;

var

 istr:string;

 i, a, b, c, code, toplam:integer;

begin

  clrscr;

  for i:=100 to 999 do

    begin

      str(i,istr);

      val(copy(istr,1,1),a,code);

      val(copy(istr,2,1),b,code);

      val(copy(istr,3,1),c,code);

      toplam:= (a*a*a)+(b*b*b)+(c*c*c);

      if toplam=i then writeln('Sayı bulundu: ',i);

    end;

  readkey;

end.