uses crt;
var i,n:integer;
x:real;
begin
read(n);
x:=sqrt(2);
for i:=1 to n do
x:=sqrt(x+2);
writeln(x);
<span>end.</span>
A = 5 т.к чтобы получить 3 не должны выполняться a<5 и a>5
Код Бодо - длина кодов всех символов алфавита одинакова и равна пяти. В данном случае не возникает проблемы отделения букв друг от друга.Каждая пятерка сигналов — это знак текста.
<span>А у Морзе каждая буква алфавита кодируется последовательностью коротких сигналов в его случае - точек, и длинных сигналов - тире. Буквы отделяются друг от друга паузами, то есть отсутствием сигналов. </span>
<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>