<span>235 в 10 с\с=11 в 234 с\с</span>
9F=9*16^1+15*16^0=144+15=159
10101010=1*2^7+0*2^6+1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0=128+0+32+0+8+0+2+0=170
252=2*8^2+5*8^1+2*2^0=128+40+2=170
Var N:integer;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
WriteLn('√',N,' = ',Sqrt(N))
End.
Const nx=30;
var a:array[1..nx] of string; p,i,j,n,k:integer; s,d:string;begin
s:='Дана строка символов состоящий из отдельных слов разделенных пробелом';
s:= s + ' Упорядочить слова по длине в убыванию и вывести на печать';
p:=1;while p>0 do begin
i:= i + 1; p:= pos(' ',s);
if p>0 then a[i]:=trim(copy(s,1,p)) else a[i]:=s;writeln(a[i]);Delete(s,1,p);end;
for k:=1 to i do begin
for j:=2 to i do begin
if length(a[j-1]) < length(a[j]) then begin
d:=a[j-1];a[j-1]:=a[j];a[j]:= d;end;end;end;
writeln;
for k:=1 to i do
<span>writeln(a[k]);end.</span>