100’den 999’a kadar olan mükemmel sayılar.

Bu bilgi size yardimci oldu mu? Evet (0) Hayır (0)

deliman 7 yil once

100’den 999’a kadar olan mükemmel sayılar.


uses crt;
   var
   on,i,a,b,c:integer;
   begin
   clrscr;
   for i:=100 to 999 do begin
   a:=i div 100;
   a:=a*a*a;
   on:=i mod 100;
   b:=on div 10;
   b:=b*b*b;
c:=on mod 10;
c:=on mod 10;
c:=c*c*c;
if(a+b+c=i)then
writeln(‘mükemmel sayi:’,i);
end;
readln;
end.


Linkback: http://www.buyuknet.com/100den-999a-kadar-olan-mukemmel-sayilar-t8625.0.html

Kullanıcılar şunlara da baktı.
 
Etiket:
100’den 999’a kadar olan mükemmel sayılar.

100’den 999’a kadar olan mükemmel sayılar. » 100’den 999’a kadar olan mükemmel sayılar. uses crt;    var    on,i,a,b,c:integer;    begin    clrscr;    for i:=100 to 999 do begin    a:=i div