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 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



Benzer Konular

1’den 10’a kadar olan sayıların toplamını bulan program

1’den 20’ye kadar olan çift sayıların toplamını veren program

KPSS Matematik Üslü Sayılar

Battlefield 4 bu teknolojiyle Dahada mukemmel olacak

Üslü sayılar nasıl ve kim tarafından bulunmuştur?

Matematikte Eratosthenes Kalburu ve Asal Sayılar

 
Etiket:

Bu bilgi size yardimci oldu mu? Evet Hayır

Konu Hakkında Görüşün Nedir?


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