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

 
Etiket:

Bu bilgi size yardimci oldu mu?

Evet Hayır

(6 oy, ortalama: 1/5 üzerinden)

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.



Turkiyenin baskenti neresidir. kucuk harfle yazin.:

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;