Может, это уравнение? 3+А=Х?
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 является числом Армстронга
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш
<u>Вариант, если исключить однобуквенные:</u>
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).
Where(x->x.Length>1).PrintLn;
end.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
Ну.. Наверное математическая (формальная) логика
Графическими
Звуковыми
Текстовыми