Меню сайта

Задача №14

Определить четырехзначные числа, куб суммы цифр которых равен самому числу.


Program for_14-

uses crt-

var i,j,k,l,n:longint-

begin

clrscr-

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+j+k+l)*(i+j+k+l)*(i+j+k+l)=n then

begin

write(‘ — — ‘,n)-

end-

end-

readln-

end.

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

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