|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »kkgladetal«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦508e019d6⟧ »kkfiler«
└─⟦this⟧
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦8748ba386⟧ »kkfiler«
└─⟦this⟧
begin
integer i,j,k,sum,c0,c1,c2,c3;
integer array c(0:9),gladetal(1:2500);
k:=sum:=0;
for i:=1 step 1 until 999 do
begin
sum:=i;
for sum:=(sum mod 10)**2 + (sum//10 mod 10)**2+(sum//100 mod 10)**2 while
sum<>1 and sum<>37 do;
if sum=1 then
begin k:=k+1; gladetal(k):=i; end;
end;
for c3:=1 step 1 until 9 do
for c2:=0 step 1 until 9 do
for c1:=0 step 1 until 9 do
for c0:=0 step 1 until 9 do
begin
c(0):=c0; c(1):=c1; c(2):=c2; c(3):=c3;
sum:=0;
for i:=0 step 1 until 3 do sum:=sum+c(i)**2;
for i:=1 step 1 until k do
if gladetal(i)=sum then
begin
k:=k+1;
sum:=0;
for j:=0 step 1 until 3 do sum:=sum+c(j)*10**j;
gladetal(k):=sum;
i:=k+30;
end;
end;
write(out,<:<10>glade tal: :>);
j:=0;
for i:=1 step 1 until k do
begin
if gladetal(i)//100 > j then begin write(out,<:<10>:>); j:=j+1; end;
write(out,<< ddd>,gladetal(i));
end;
end;
▶EOF◀