; ----------- ----------------

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

deliman Kişisel İleti Gönder (Çevrimdışı) 17 Kasım 2008, 18:01:59

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.


Bunlar da ilginizi çekebilir
. 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
. Boyutlar ve sayılar
. mükemmel sayıların bu özelliğini biliyor muydunuz?
. Neye ne kadar vergi ödeyeceğiz?
. İflası Sabit Oluncaya Kadar
. KPSS Matematik Üslü Sayılar
. Kadınları Anlamak Bu kadar Zor Okuyun
. Dilediğin Kadar Yap
. Ayak tırnağının batmasına sebep olan nedenler?


 
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

Google Etiketleri