var
s: string;
i,n: integer;
begin
readln(s);
n:=1;
for i:=1 to length(s) do
if ((s[i]='3') or (s[i]='6') or (s[i]='9')) then
n:=n*(ord(s[i])-48);
write(n);
end.
Решение:
1. Определим вес одного символа: 500 / 50 = 10 бита.
2. Мощность алфавита определяем по формуле: N=2^10 = 22
Ответ: мощность алфавита N = 22.
12 Мбайт= 12 * 1024 кбайт
t=s/v
t=12*1024/4=3072 секунд=51.2 мин