Вопрос, который вызвал трудности
Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-степень, равна самому (программа Паскаль)
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
program z1;
uses crt;
var a,b,c,n: integer;
begin
for a:=100 to 999 do
begin
c:=0;n:=a;
while n<>0 do
begin
b:=n mod 10;
c:=c+sqr(b)*b;
n:=n div 10;
end;
if a=c then writeln (a);
end;
end.
uses crt;
var a,b,c,n: integer;
begin
for a:=100 to 999 do
begin
c:=0;n:=a;
while n<>0 do
begin
b:=n mod 10;
c:=c+sqr(b)*b;
n:=n div 10;
end;
if a=c then writeln (a);
end;
end.