Var a,b,k,s:integer;
begin
readln(a);
b:=a;
k:=0;
while b>0 do
begin
k:=k+1;
b:=b div 10;
end;
b:=a;
while b>0 do
begin
s:=s+round(power((b mod 10),k));
b:=b div 10;
end;
if a=s then writeln('Число ',a,' является числом Армстронга')
else writeln('Число ',a,' не является числом Армстронга');
end.
Пример:
153
Число 153 является числом Армстронга
Б..........................................
Недостатки:
• Бизнес-логика функциональной обработки и представление данных могут быть одинаковыми для нескольких клиентских приложений, и это увеличит совокупные потребности в ресурсах при исполнении вследствие повторения части кода программ и запросов;
<span>• Низкий уровень управления непротиворечивостью информации, так как бизнес-правила функциональной обработки, сосредоточенные на клиентской части, могут быть противоречивыми.</span>
Const col=14;
var i:byte;
T:array[1..col] of shortint;
begin
writeln('Массив из ',col,' элементов');
T[1]:=-2;
write(T[1]:6);
for i:=2 to col do begin
T[i]:=T[i-1]*(-1);
write(T[i]:6);
end;
end.