Регистрация
nova9696
16.09.2020 13:59
Информатика
Есть ответ 👍

Напишите программу в паскале .

297
335
Посмотреть ответы 1

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

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

Популярно: Информатика