Question

Определить, является ли введенное число числом амстронга. числом амстронга называется число, равное сумме своих цифр в степени их количества. например: 153= 1^3+5^3+3^3 написать метод решения и составить блок-схему ,

Answer 1

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 является числом Армстронга