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)thenwriteln(‘mükemmel sayi:’,i);end;readln;end.
Bu bilgi size yardimci oldu mu?
Bu içeriği nasıl geliştireceğinizi yazın...
Çorum ne ile çeşhurdur. Cevap: Leblebi ile meşhurdur.