А истинно
В ложно
С ложно (у вершины дерева м.б. только 1 предыд.вер.)
Е- истинно
F-истинно
G -только волк и гусь
H- ложно
D-да(лошадь)
J-истинно
K-ложь
Мощность алфавита 16, объем одного символа - 4 бита, т.к. 16 = 2^4
Объем 20-ти символов равен 20*4 = 80 бит
80 бит / 8 = 10 байт.
<u /><em></em><em>VAR</em>
<em> n, m, sum, i, j: Integer;</em>
<em> a: Array [1..10000] of Array [1..10000] of Integer;</em>
<em>BEGIN</em>
<em> Read(n, m);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do Read(a[i][j]);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do</em>
<em> If (a[i][j] > 0) then sum := sum + a[i][j];</em>
<em></em>
<em> Write(sum);</em>
<em>END. </em>
<em></em>
<u>Но для экономии времени и сил можно не создавать массив:</u>
<em>VAR</em>
<span><em> n, m, sum, el, i, j: Integer;</em></span>
<em>BEGIN</em>
<span><em> Read(n, m);</em></span>
<em></em>
<span><em> For i := 1 to n do</em></span>
<span><em> For j := 1 to m do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (el > 0) then sum := sum + el;</em></span>
<span><em> End;</em></span>
<em></em>
<span><em> Write(sum);</em></span>
<em>END.</em>
Опишем условия задачи (ориентируемся на рисунок где выделены области N1, N2, N3)
N2=1000 (из условия фрегат & эсминец 1000)
N1+N2=2000 (из условия фрегат 2000)
N2+N3=2500 (из условия эсминец 2500)
Запрос фрегат | эсминец можно описать как
N1+N2+N3
Выражаем из уравнений выше каждую из N
N2=1000
N1=2000-N2=2000-1000=1000
N3=2500-N2=2500-1000=1500
Получаем:
N1+N2+N3=1000+1000+1500=3500
Var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
read(a[i]);
end.
