131. т.к. N=4, то i= 2, следовательно - 2 бита
133. 65 536 = 2^16, 16:8= 2 БАЙТА
137. 16 777 216 = 2^24, i=24
I=K*i=1024*768*24= 18 874 368 бит : 8 = 2 359 296 байт : 1024 = 2304 кбайт
остальные прости не знаю)
Например, можно так:
Repeat
<Действия>
Until <Условие>
Пример:
Repeat
Write('Хочу домой');
Readln(s)
Until s='иди'
Здесь будет всё время выходить "Хочу домой" и предлагаться ввод ответа, пока не будет введено "иди".
Ответ:
А В С Ā Ā×В С×А Ā×В+С×А
0 0 0 1 0 0 0
0 1 1 1 1 0 1
0 1 0 1 1 0 1
1 0 1 0 0 1 1
1 1 0 0 0 0 0
1 1 1 0 0 1 1
Объяснение:
1) Изначально прописываем одиночные элементы А, В, С.
Когда элемента 2 - прописываем 4 строки.
Когда элементов 3 - прописываем 6 строк.
А при 4 строках=0011 при 6 строках=000111
В при 4 строках=0101 при 6 строках=011011
С при 6 строках=010101
2) Затем прописываем отрицание. Оно меняет значения на противоположные.
3) Как в математике, первым делаем умножение(конъюнкцию) Ā×В. Она равна 1, если все элементы равны 1.
4) Затем идёт второе умножение С×А. Принципы выполнения те же.
5) В конце собираем всё последним действием - сложением(дизъюнкцией). Она равна 1, если хоть 1 элемент равен 1.
Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
<span>end.</span>