Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>
1 720 Кбайт
2 720 Кбайт
3 1 Кбайт
4 если б байты то 40 если б это биты то 5 (я просто не понял что значит б)
На кодировку 1 символа ему потребуется 6 бит (64=2^6), т.е 6разрядный двоичный код (как раз и будет 64 двоичных комбинаций)