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




 
Etiket:

Bu bilgi size yardimci oldu mu? Evet Hayır

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

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;