Что такое функций пользователя и какие ихние значения?

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.

program xxx;   var i, n, max : integer;         s : real;         a : array [1..20] of integer; begin  write ('введите n= ');   readln(n);   for i: =1 to n do      readln (a[i]);   max: = a[1];   for i: =1 to n do      if a[i] > max then max : = a[i];   s: = sqrt(max);   write ('корень из наибольшего эл-та =', s)end.

пролететь-расстояниепроехать на лифте-номер этажаспрыгнуть-высота,скоростьпоесть-количествоповернуть-время,напровление

1) неопределенность знаний n = 64 - 32 = 32;

2) i = log232 = 5 бит - количество информации;

3) количество бит соответствует количеству вопросов.

ответ: 5 вопросов.