Var
s,s1:string;
i:integer;
begin
writeln ('Введите строку.');
readln (s);
s1:='';
for i:= 1 to length(s)-1 do
begin
if s[i] <> ' ' then s1:=s1+s[i];
if (s[i] = ' ')and(s[i+1] <> ' ') then s1:=s1+s[i];
end;
s:='';
if s1[1] = ' ' then
for i:= 2 to length(s1) do
s:=s+s1[i]
else
for i:= 1 to length(s1) do
s:=s+s1[i];
writeln(s);
end.
<em /><em>VAR</em>
<span><em> mx, ind: Integer;</em></span>
<span><em> n, m, i, j: Integer;</em></span>
<em>
b: Array of Integer;</em>
<em>
a: Array of Array of Integer;</em>
<em>BEGIN</em>
<em>
Read(n); SetLength(a, n+1); </em>
<em> For i := 1 to n do SetLength(a[i], n+1);</em>
<em></em>
<em>
For i := 1 to n do</em>
<em> For j := 1 to n do Read(a[i][j]);</em>
<em></em>
<em> SetLength(b, n+1);</em>
<em> For i := 1 to n do b[i] := a[i][i];</em>
<em></em>
<em> mx := b[1]; ind := 1;</em>
<em> For i := 2 to n do </em>
<em> If (mx < b[i]) then begin </em>
<em> mx := b[i]; ind := i; End;</em>
<em></em>
<em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em>
<em>END.</em>
<em></em>
Или намного проще (если нужен только ответ):
<em>VAR</em>
<em> mx, ind, el: Integer;</em>
<em> n, m, i, j: Integer;</em>
<em>BEGIN</em>
<em> Read(n);</em>
<em></em>
<em> // Присваем макс. элементу самое минимальное число,</em>
<em> // которое точно не встретится в массиве</em>
<em> mx := -999999999;</em>
<em></em>
<em> For i := 1 to n do</em>
<span><em> For j := 1 to n do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (i <> j) then Continue;</em></span>
<span><em> If (mx < el) then begin </em></span>
<span><em> mx := el; ind := i; End; End;</em></span>
<em></em>
<span><em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em></span>
<em>END.</em>
131 =128+2+1=2^7 + 2^1 +2^0= 10000011
,79 * умножаем только дробную часть числа, искомая двоичная
<u> 2</u> дробь записывается из целых сверху-вниз 0,79≈0,11011
1,58*
<u> 2</u>
<u /> 1,40
<u> 2 </u> 131,79=10000011,11011<u>
</u> 0,8
<u> 2
</u> 1,6
<u> 2</u>
1,2
<u><em><span>Множество может быть замкнутым и незамкнутым, полным и пустым, упорядоченным и неупорядоченным, счётным и несчётным, конечным и бесконечным. Более того, как в наивной, так и в формальной теориях множеств любой объект обычно считается множеством.</span></em></u>
<span>Буквы , ударные или безударные слоги. </span>
<span>Сами знаки могут выглядеть как угодно, например, точка-тире. </span>
<span>Они могли обозначать союзы, знаки препинания, слова в один слог. </span>
<span>Также они использовались для сочетаний звуков, слогов. </span>
<span>А если вопрос связан с историей то, письменные знаки, засвидетельствованные древнейшими памятниками, могут быть без труда возведены к первоначальному рисуночному образу. Эти знаки изображали человека и части его тела, орудия труда, оружие, лодки, животных, птиц, рыб, растения, поля, воды, горы, звёзды и т. д.</span>