Прошу написать на русском и тогда я смогу вам помочь
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.
Каждый символ кодируется 2 байтами, то есть i=2 байт переводим в бит. i=16 бит. Всего символов 32. Значит, I = 32*16 = 512 бит
Ответ:512 бит
Pascal
const
n = 15;
type
mas = array [1..n] of integer;
var
m : mas;
i : integer;
procedure inic (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := 0;
end;
procedure num (var a : mas);
var
i : integer;
begin
for i := 1 to n do
a[i] := i;
end;
procedure w (var a : mas);
var
i : integer;
begin
for i := 1 to n do writeln (m[i]);
readln ();<span>
end;</span>
begin
inic (m);
num(m);
w(m);
end.
Потому что создается растровая графика фотоаппаратами, сканерами, непосредственно в растровом редакторе, также путем экспорта из векторного редактора или в виде скриншотов.