Меню сайта

Задача №9

Натуральное число из n цифр является ся числом Армстронга, т.е. сумма его цифр возведенная в — -степень —n, равна самому числу (153=1*1*1+5*5*5+3*3*3).Получить все числа — Армстронга для n=4 и n=3


Program for_9-

uses crt-

var i,j,k,l : integer-

n,m : longint-

begin

clrscr-

begin

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

for l:=0 to 9 do

begin

n:=1000*i+100*j+10*k+l-

if i*i*i*i+j*j*j*j+k*k*k*k+l*l*l*l=n

then writeln(n)-

end-

end-

begin

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

begin

m:=100*i+10*j+k-

if i*i*i+j*j*j+k*k*k=m

then writeln(m)-

end-

end-

readln-

end.

Категория: Циклы | Дата: 06.11.12

Меню раздела
Блок