Const n=10;
var a:array [1..n] of real;
i,k:integer;
b,min,s:real;
begin
for i:=1 to n do begin
a[i]:=21*random-10;
if a[i]=0 then k:=k+1;
write (a[i]:6:2);
end;
writeln;
writeln ('нулевых элементов ',k);
min:=a[1];
for i:=1 to n do
if a[i]<min then begin
k:=i;
min:=a[i];
end;
for i:=k+1 to n do
s:=s+a[i];
writeln('сумма после минимального = ',s:5:2);
for k:=1 to n do
for i:=1 to n-1 do
if abs(a[i])>abs(a[i+1]) then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
for i:=1 to n do
write (a[i]:6:2);
end.
Var i:integer;s:real;
begin
s:=0;
for i:=25 to 1255 do
begin
s:=s+power(i,3);
end;
writeln (s);
end.
Ответ:
program SqrtX;
const
XBEG = 4.5;
XEND = 11.0;
DELTA = 0.5;
var
x: Double;
begin
x := XBEG;
while x <= XEND do begin
WriteLn (x :4 :1, Sqrt (x) :20 :15);
x := x + DELTA;
end;
ReadLn;
end.
Ответ:
43₁₆=4·16¹+3·16⁰=4·16+3·1=64+3=67₁₀
105₈=1·8²+0·8¹+5·8⁰=1·64+0·8+5·1=64+5=69₁₀
10101₂=1·2⁴+0·2³+1·2²+0·2¹+1·2⁰=1·16+0·8+1·4+0·2+1·1=16+4+1=21₂
Ответ: 105₈=69₁₀
<span>2) каждому символу их двоичные коды</span>