Var a,b,c,p:integer;
begin
readln(a,b,c);
if a>0 then begin p:=p*a; writeln(a); end;
if b>0 then begin p:=p*b; writeln(b); end;
if c>0 then begin p:=p*c; writeln(c); end;
writeln('произведение:',p);
end.
64*52*52=173056 символов всего в книге
169 * 1024 = 173056 байт (в 169 кБайтах)
173056 / 173056 = 1 байт нужен для кодировки каждого символа
1 байт = 8 бит
Ответ:
2) 8 бит
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandomReal(ReadInteger('n='), -99, 99)
.Select(t -> Round(t, 2)).ToArray;
a.Println;
a.Where((v, i)-> i.IsEven).Aggregate(1.0, (p, q)-> p * q).Println;
a.Sort;
a.Println
end.
Для растрового изображения сохраняется цвет каждого пикселя. Сверху накладываются разнообразные сжатия
Векторные изображения сохраняются в виде описания параметров графических примитивов из которых они состоят