Дешифровщику необходимо восстановить поврежденный фрагмент сообщения, состоящий из 4 символов. имеется достоверная информация, что использовано не более 5 букв: a,f,e,r,t, причем на четвертом месте стоит гласная буква а или е, если на втором месте стоит согласная или любая согласная, если на втором мечте стоит гласная. на первом месте- одна из букв f,я,e, не состоящая при этом в слове на втором или четвертом местах. на третьем месте- любая согласная, не стоящая на первом месте. 1) etrf 2) rart 3)rffa 4) feta

Ответ feta, ведь на первом месте любая из трех букв (efr) если на втором месте гласная, в этом случае e.

Процедурой: // возводит действилельное число x в целую степень n procedure pow(const x: real; const n: integer; var st: real); var i: integer; begin st: =1; for i: = 1 to n do       st: =st*x; end; var     x,y,st: real;     n: integer; begin y: =0; write('x = '); readln(x); write('n = '); readln(n); for n: = 1 to n do       begin       pow(x,n,st);       y: =y+cos(st);       end; writeln('y = ',y); end. функцией: // возводит действилельное число x в целую степень n function pow(const x: real; const n: integer): real; var i: integer; begin result: =1; for i: = 1 to n do       result: =result*x; end; var     x,y: real;     n: integer; begin y: =0; write('x = '); readln(x); write('n = '); readln(n); for n: = 1 to n do       y: =y+cos(pow(x,n)); writeln('y = ',y); end. циклом: var     x,y,st: real;     n: integer; begin y: =0; write('x = '); readln(x); write('n = '); readln(n); st: =1; for n: = 1 to n do       begin       st: =st*x;       y: =y+cos(st);       end; writeln('y = ',y); end.