30 * 70 = 2100 символов на 1 странице
5 * 2100 = 10500 символов на 5 страницах
При кодировке ASCII - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.
Uses crt;
Var
n,n1,n2,n3,n4,i,Armst:integer;
Begin
Write('Введите n: '); readln(n);
Write('Числа <span>Армстронга </span>для n=',n,': ');
if n=3 then
for i:=100 to 999 do begin
n1:=i div 100;
n2:=i mod 100 div 10;
n3:=i mod 10;
Armst:=(n1*n1*n1)+(n2*n2*n2)+(n3*n3*n3);
if Armst = i then write(Armst,' ');
end;
if n=4 then
for i:=1000 to 9999 do begin
n1:=i div 1000;
n2:=i div 100 mod 10;
n3:=i mod 100 div 10;
n4:=i mod 10;
Armst:=(n1*n1*n1*n1)+(n2*n2*n2*n2)+(n3*n3*n3*n3)+(n4*n4*n4*n4);
if Armst = i then write(Armst,' ');
end;
Writeln;
Readkey;
End.
Var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do a[i]:=i;
for i:=1 to n do write(a[i],' ');
writeln;
<span>end.</span>