<span><span><span><span>
а)
A B C A-->B --B+C результат
0 0 0 1 1 1
0 0 1 1 1 1
0 1 0 1 0 0
0 1 1 1 1 1
1 0 0 0 1 0
1 0 1 0 1 0
1 1 0 1 0 0
1 1 1 1 1 1и далее в том же духе...</span></span><span /></span></span><span><span /></span>
2^N = 5 --> N=3 бита для кодировки одного из пяти символов Ш К О Л А
3*15 = 45 бит = 6 байтов для одного пароля
30*6 = 180 байтов для тридцати паролей
Var a:array[1..20] of integer;
i,min,ind:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(100)+100;
write(a[i]:4);
end;
writeln;
min:=a[1]+a[2];
for i:=2 to 19 do
if a[i]+a[i+1]<min then
begin
min:=a[i]+a[i+1];
ind:=i;
end;
write('Сумма минимальна между ',ind,' и ', ind+1, ' элементом');
end.
//дано трехзначное число найдите сумму его цифр
var x,y,i:word;
begin
writeln('Введите трехзначное число');
readln (x);
while (999<x) or (x<100) do //в цикле проверяется "трехзначность" числа
begin
writeln('Вы ввели не трехзначное число попробуйте еще раз');
readln (x);
end;
for i:=1 to 3 do // число делиться на цифры
begin
y:=y+x mod 10;
x:=x div 10;
end;
writeln('Сумма цифр данного числа ',y);
<span>end.</span>