Для натурального четырёхзначного числа n вычислить число m, записываемое теми же цифрами, что и n, но в обратном порядке. пример. ввод: 1276 (n) вывод: 6721 (m)

Ичто тебе надо то?

Program kvur; var x1,x2,d,e,f, a, b, c: real; begin writeln('решение квадратного уравнения(ax^2+bx+c=0).'); write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d: =sqr(b)-4*a*c; writeln('вы ввели: '); writeln('a= ',a: 6: 2); writeln('b= ',b: 6: 2); writeln('c= ',c: 6: 2); writeln('d=b*b-4*a*c=',d: 6: 2); if (d> =0) then begin e: = (-b/(2*a)); f: = (sqrt(d)/(2*a)); x1: = (e+f); x2: = (e-f); writeln('d> = 0, значит корни действительные: '); writeln('x1= ',x1: 6: 2); writeln('x2= ',x2: 6: 2); end; if(d< 0) then begin e: = (-b/(2*a)); f: = (sqrt(-d)/(2*a)); x1: = (e+f); x2: = (e-f); writeln(' d< 0, значит корни комплексные: '); writeln('x1= ', e: 6: 2, ' + ', f: 6: 2, 'i'); writeln('x2= ', e: 6: 2, ' - ', f: 6: 2, 'i'); end; end.

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(5); writeln(5*a.colcount*'-');   writeln('сумма элементов массива: ',           a.rows.selectmany(x-> x).sum) end. пример количество строк в массиве: 6 количество столбцов в массиве: 9 *** исходный массив [6,9] ***     39    99    51    44  -28  -85  -52  -98  -56     68    41      3    34    54  -39  -72    15  -80     47  -11    35  -50    65    70    58    52    -1     38    82  -37    93    32    51  -82  -32    98   -72  -12    59    87    44    -4  -14  -56    13     44    72      1    63    48  -77      4  -28    73 сумма элементов массива: 691