Constn=10;m=10; var a:array[1..n,1..m]of integer; i,j,s:integer; begin for i:=1 to n do begin writeln; s:=0; for j:=1 to m do begin a[i,j]:=random(50); write(a[i,j]:4); if i mod 2<>0 then s:=s+a[i,j]; end; if i mod 2<>0 then writeln(s:6); end; end.
Символы для формирования пароля выбираются из алфавита размером 10+2*11=32 символа, которым будут присвоены коды от до 31. переводим 31 в двоичную ссисткму счисления, получая 11111, т.е. для хранения каждого символа алфавита потребуется 5 бит. Тогда весь пароль займет 5*15=75 бит, но он должен размещаться в целом количестве байт. 75/8=9.375, следовательно потребуется 10 байт. Для хранения 30 паролей потребуется объем 10*30=300 байт.
Что такое И=20 номеров я не понял. В условии понятие "номер" отсутствует.
