Перестановкой из n чисел называется-последовательность чисел, где каждое число от 1 до n встречается ровно один раз.перестановка b1, является обратной перестановкой перестановки a1, , если b[ai]=1=i для каждого i от 1 до n.для заданных двух перестановок определите является ли вторая перестановка обратной первой формат входных данных в певой строке входного файла записано одно целое число n (1< =n< =1000)-размер перестановок.во второй запписаны n целых чисел b1, (1< =bi< =n)-вторая перестановка. формат выходных данных в единственной строке выходного файла выведите одно слово "yes", если вторая перестановка является обратной первой.иначе выведите "no".

Мы судьи  с "ертисдарына" ваша школа будет дисквалефецирована!   мы нашли вас по вашему 'ip' коду

Uses crt; var i,j,k,n,sum: integer; a: array[1..100] of integer; flag: boolean; begin flag: =false; writeln('input n'); read(n); writeln('input elements'); for i: =1 to n do read(a[i]); for i: =1 to n do for j: =1 to n do for k: =1 to n do if (i< > j) and (j< > k) and (i< > k) then if a[i]+a[j]+a[k]=0 then  f flag=false then writeln('no'); end.   uses crt; var i,j,k,n,sum: integer; a: array[1..100] of integer; flag: boolean; begin flag: =false; writeln('input n'); read(n); writeln('input elements'); for i: =1 to n do read(a[i]); for i: =1 to n do for j: =1 to n do for k: =1 to n do if (i< > j) and (j< > k) and (i< > k) then if a[i]+a[j]+a[k]=0 then  f flag=false then writeln('no'); end.

Pascal abc / pascalabc.net: var     n,s: integer; begin write('n = '); readln(n); s: =0; while n > 0 do     begin     s: =s+sqr(n mod 10);     n: =n div 10     end; writeln('s = ',power(s,1/3)); end. turbo pascal / free pascal: var     n,s: integer; begin write('n = '); readln(n); s: =0; while n > 0 do     begin     s: =s+sqr(n mod 10);     n: =n div 10     end; writeln('s = ',exp(ln(s)/3)); end.

1) {$apptype console} var     u: array[1..10000] of integer;     h,k: integer; begin randomize; write('h = '); readln(h); write('исходный массив: '); for h: = 1 to h do       begin       u[h]: =random(2*h+1)-h;       write(' ',u[h])       end; writeln; write('k = '); readln(k); for h: = 1 to h do       if u[h] = k then write(h,' '); readln; end. 2) {$apptype console} var     b: array[1..10000,1..10000] of integer;     m,n,j,max: integer; begin randomize; write('m = '); readln(m); write('n = '); readln(n); for m: = 1 to m do       begin       max: =1;       for j: = 1 to n do               begin               b[m,j]: =random(21)-10;               write(b[m,j]: 4);               if b[m,j] > b[m,max] then max: =j;               end;       writeln(', max = ',b[m,max],'[',m,',',max,']');       end; readln end.