Составить программу натуральное число называется числом армстронга, если сумма цифр числа, возведенных в n-ную степень (где n – количество цифр в числе) равна самому числу. найдите все трёхзначные армстронга.

Такое число для 3 разрядных чисел одно, это 512 sub amstrong() ctroka = 2 for i = 100 to 999 n1 = i \ 100 n2 = (i - 100 * n1) \ 10 n3 = i - 100 * n1 - 10 * n2 if (n1 + n2 + n3) ^ 3 = i then cells(ctroka, 2) = i ctroka = ctroka + 1 end if next i end sub

Pascalabc.net 1) var  a: string = 'лекарство';   b,c,d: string; begin b: = copy(a,1,2); c: = copy(a,7,1)+copy(a,9,1); d: = copy(a,8,2); writeln(b+c); writeln(b+d); end. 2) var  a: string = 'нитка'; begin writeln(a); a: = a.replace('ит','ер'); writeln(a); a: = a.replace('е','о'); writeln(a); a: = a.replace('нор','кри'); writeln(a); a: = a.replace('рик','ниг'); writeln(a); a: = a.replace('кни','пур'); writeln(a); end. 3) var a,b,c,d,e,f: string; begin a: ='кормила'; b: ='ку'; c: ='ка'; d: ='ш'; e: ='он'; f: =' '; writeln(b+b+d+c+f+a+f+b+b+d+e+c); end.

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin   var (m,n): =readinteger2('количество строк и столбцов в массиве: ');   writeln('*** исходный массив ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var (p,q): =readinteger2('укажите номера строк для обмена: ');   a.swaprows(p-1,q-1);   writeln('*** полученный массив ***'); a.println(4);   (p,q): =readinteger2('укажите номера столбцов для обмена: ');   a.swapcols(p-1,q-1);   writeln('*** полученный массив ***'); a.println(4); end.