Где отобразилась , может отобразилась в истории браузера в котором ты работал .
1 строчка = 0,1,2,3,4,5,6,8
2 = 0,2,4
3 что значит / ?
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.
заполняем массив числами
затем присваиваем минимальное значение первому элементу
после этого проверяем, есть ли в массиве числа меньше
если есть, то минимальное значение будет меняться, если же нет, то минимально значение останется равным первому элементу