<span><span><em>1) </em></span><em>Break</em></span><em />
<span><em>2) Esc</em><span>
<em>
3) Enter</em><span>
<em>
4) </em><span><em>Page Down</em></span></span></span></span>
Var
a: array [1..10] of real;
s: real;
i: integer;
begin
s:= 0;
for i:= 1 to 10 do
begin
writeln('Введите число');
readln(a[i]); //Вводим i-ый элемент массива с клавиатуры
if a[i] > 0 then s:= s + a[i]; {Если введенный элемент >0, то прибавляем к текущему значению s введенный элемент}
end;
writeln('Сумма положительных элементов массива: ', s)
end.
Если требовалось сделать таблицу истинности, вот. Если нужно что-то другое, то пиши в комментарии, я доделаю.
Всего символов: 290*39*67=757770 символов.
Если это просто символы типа char кодировки ASCII, то так как char имеет размер 1 байт, то книга занимает 757770 байт, или 757770/8=6062160 бит
17+1=18
18+1=19
19+1=20
20+1=21
21+1=22
22*2=44
44+1=45
45*2=90
90+1=91
91*2=182
182*2=364
364*2=728
728+1=729