Пусть имеется n=5 чисел (1,2,3,4,5). Найти 93-ю перестановку.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

var

b1,b2,i,n,p: integer;

begin

write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);

p: =-1;

for i: =2 to n do

begin

p: =p*(-1);

b2: =p*b1-8;

writeln (i,' элемент = ', b2);

b1: =b2;

end;

end.

для хранения информации о звуке длительностью t секунд, закодированном с частотой дискретизации f гц и глубиной кодирования b бит требуется b*f*t  бит памяти

f=16кгц=16000гц

в=24 бита

t= 60 с

16000*24*60=23040000бит= 23040000/8/10^6=2,88мб

третий ответ