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 является числом Армстронга
Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
Интернет стал не только познавательной страничкой, но также открыл перед нами целую систему заработка в онлайн режиме, что значительно экономит ваше время и деньги. Вы сможете завести свой бизнес в интернете, при этом вы будете сами себе начальником. Никто и никогда не выступит против того, что вы немного проспали или опоздали в сети. Как говорится, здесь ты сам себе начальник и подчиненный. Ваша онлайн работа зависит от вашей продуктивности. Здесь вы уже сами заинтересованы поработать на результат.
ответ 32
всего 5 символов последовательности каждый из символов либо + либо минус.
т.е. первый символ мы можем выбрать из 2 символов, 2ой тоже из 2 и т.д.
т.е. 2*2*2*2*2=32
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;