1) поместить в хеш таблицу 7 книг методом средних квадратов (по

названию книги).
2) поместить в хеш таблицу 7 книг методом свертки (по фамилии

автора).

3) поместить в хеш таблицу 10 книг, любым другим числовым

способом (по дате печати). примеры коллизии.

4) поместить в хеш таблицу 10 книг, любым другим числовым

способом (по названию книги). несколько примеров

коллизии.

5) поместить в хеш таблицу 5 книг, любым другим числовым

способом.

dim a(12), b(12), c(12)

input "введите размерность массивов а и в - m= ", m 

print "введите элементы массивов а и в: "

for i=1 to m

  input a(i), b(i) 

next i

s=0

for i = 1 to m

  c(i)= a(i) + b(m-i+1)

  s= s+c(i)

next i 

print "массив а: " 

for i = 1 to m

    print a(i);

next   i 

print

print "массив b: " 

for i = 1 to m

    print b(i);

next   i 

print

print "массив c: " 

for i = 1 to m

    print c(i);

next   i 

print

print "сумма элементов массива с ="; s

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.