Program z1;
var k,i:integer;
begin
k:=0;
for i:=99 downto 5 do
if (i mod 5=0)and(i mod 7=0) then
k:=k+1;
writeln (k);
end.
E Г Э 2 0 1 3 ----> всего 7 символов,
i бит, чтобы закодировать каждый символ: 2^i =7 (ближайшая к 7 (бОльшая) степепень двойки =8) 2^i=8 ---> i=3 бита для кодирования одного символа.
Пароль из 15 символов:
3*15=45 бит = 45:8 = 6 байт (целое количества байт)
Всего 25 паролей:
6*25=150 байт
ответ 150 байт
Var i,p:integer;
begin
i:=11;
p:=1;
while i<=99 do
begin
p:=p*i;
i:=i+2;
end;
writeln(p)
end.