Есть специальный калькулятор на компьютере либо в интернете
program raf105;
var a,sum,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
begin
readln(a);
sum += a;
end;
writeln('Сумма: ',sum);
end.
<em><u>Язык PascalABC</u></em>
Var a,b,c:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then writeln('treugolinik suscestvuet ;) else writeln('treugolinik ne suscestvuet');
readln;
end.
Все однозначные числа от 1 до 9 - это числа Армстронга.
Потому что однозначное число в 1 степени равно самому этому числу.
Сумма этих чисел 1+2+3+4+5+6+7+8+9=45.
Следующее число Армстронга - как раз 153 > 20.
Ответ 45