1. вводиться последовательность ненулевых чисел, 0-конец последовательности. определить среднее значение элементов последовательности

проверено на паскаль авс

program dafnochka; uses crt; var  r,sum: real;   k: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   sum: =0;   k: =0;   r: =1;   writeln('введите ненулевое число');   writeln('(или введите 0 для конца последовательности) ');   while r< > 0 do      begin          write("ввод: ") ;             readln (r);           sum: =sum+r;           k: =k+1;         end;   writeln();   writeln('всего введено ',k-1,' чисел');   writeln('среднее значение равно ',sum/(k-1)); end.

program zadacha; uses crt; var a: array[1..10]of integer; i,k,sum: integer; begin i: =0; k: =0; repeat inc(i); readln (a[i]) ;

inc(k) ; until a[i]=0; sum: =0; for i: =1 to k do sum: =sum +a[i]; writeln('sr_znach ',sum/k); end.

отметь как лучший ответ

1)Алфавит состоит из 6 символов(QWERTY), значит на один символ отводится 3 бита, так как 2^3 > 6, а 2^2 < 6. // нашли вес одного символа

2) 17 * 3 = 51 бит. Значит для хранения такого пароля нужно отвести 7 байт, так 7 * 8 > 51, а 7 * 7 < 51 // нашли вес пароля в байтах

3) 60 * 7 = 420 байт // нашли вес 60 таких паролей

ответ: 420 байт