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. Kod: [Seç]uses crt; var on,i,a,b,c:integer; begin clrscr; for i:=100 to 999 do begin a:=i div 100;...

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

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

Kod: [Seç]
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?

Bu Konuyu Neden Beğenmediğinizle ilgili açıklayıcı yazı yazarsanız konuyu ona göre güncelleyeceğiz.

Mesajınıza cevap yazmamızı isterseniz aşağıdaki alanı doldurun

Email:
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. Kod: [Seç]uses crt; var on,i,a,b,c:integer; begin clrscr; for i:=100 to 999 do begin a:=i div 100;