Натуральное число из n цифр является числом армстронга, т.е сумма его цифр возведенная в n степень равна самому числе. ( 153=1*1*1+5*5*5+3*3*3) получите все числа армстронга для n=4 n=3?

// pascalabc.net 3.0, сборка 1073 const   m=5;   n=4;   a: array[1..m] of real=(2,-7.1,3.2,-5.4,6.9);   b: array[1..n] of real=(8.1,3.2,-6.4,-3.5);   k=3; var   i,j: integer;   sk: real;   s: array[1..m,1..n] of real; begin   writeln('массив s');   for i: =1 to m do begin       for j: =1 to n do begin           s[i,j]: =a[i]*b[j];           write(s[i,j]: 7: 2)       end;       writeln   end;   sk: =0;   for i: =1 to m do sk: =sk+s[i,k];   writeln('сумма элементов столбца ',k,' равна ',sk) end. результат выполнения программы: массив s   16.20    6.40 -12.80  -7.00   -57.51 -22.72  45.44  24.85   25.92  10.24 -20.48 -11.20   -43.74 -17.28  34.56  18.90   55.89  22.08 -44.16 -24.15 сумма элементов столбца 3 равна 2.56

// pascalabc.net 3.0, сборка 1073 const   s='qwertyuiopasdfghjklzxcvbnmqqwertyuiopasdfghjklzxcvbnmq'; var   c: char;   p: integer; begin   repeat       write('введите латинскую букву, иной символ завершит работу: ');       readln(c);       p: =pos(c,s);       if p> 0 then writeln('рядом буква "',s[p+1],'"')   until p=0 end. тестовое решение: введите латинскую букву, иной символ завершит работу: y рядом буква "u" введите латинскую букву, иной символ завершит работу: h рядом буква "j" введите латинскую букву, иной символ завершит работу: m рядом буква "q" введите латинскую букву, иной символ завершит работу: p рядом буква "a" введите латинскую букву, иной символ завершит работу: 5