Решение на паскале:
var
a: string;
b, c: byte;
begin
b := 0;
c := 0;
for c := 1 to 30 do
begin
readln(a);
if a = 'Петя' then b := b + 1;
end;
write(b);
end.
Program n1;
const nn=1000;
var x: array[1..nn] of integer;
m,i:integer;
begin
writeln('Введите размерность массива'); readln(m);
writeln('Введите массив');
for i:=1 to m do readln(x[i]);
for i:=1 to m do
if x[i]=0 then write(x[i],' ');
end.<span>
</span>
Program chik;
var x,y:real;
begin
readln(x,y);
if ( (y<=0) and (x>=-1) and (x<=1) and (y>=-2) ) or
( (y>=0) and (x>=-1) and (x<=1) and (y<=1) and (x*x+y*y<=1))then
writeln('ПРИНАДЛЕЖИТ') else writeln('Не принадлежит');
<span>end.</span>
Ответ:
960 байт, 7680 бит.
Объяснение:
Для кодирования n символов требуется подобрать число, являющееся степенью двойки, большее или равное n. Степень двойки будет количеством бит, необходимых для кодирования одного символа.
Подберем подходящую степень:
не подходит
подходит, значит 6 - количество бит, необходимое для кодирования одного символа.
В пароле по условию 15 символов => потребуется 15*6=90 бит для кодирования всего пароля. Но "Каждый такой пароль в компьютерной системе записывается минимально возможным и одинаковым целым количеством байт". В одном байте, как известно, 8 бит. 90 на 8 не делится, а вот 96 как раз.
96/8 = 12 - минимально возможное количество байт для кодирования пароля. Так как 11 уже не подходит - в 11 байтах вместится всего 88 бит, а нам потребовалось 90.
Для 80 паролей объем памяти будет равен: 80 * 12 = 960 байт.
960 байт = 960 * 8 = 7 680 бит.