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

244

349

Посмотреть ответы 2

Ответы на вопрос:

sharapoid

Информатика

4,8(21 оценок)

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