1. 252₈=170₁₀;
A8C₁₆=2700₁₀;
2. 315₁₀=100111011₂;
3. 5434₁₀=1232₈;
4. 2470₁₀=51A6₁₆;
5. 110011₂+1010₂=111101₂;
6. 100010₂+101₂=11101₂;
7. 111₂*101=100011₂.
Uses graphabc;
var
i, c: integer;
ar: array[1..5]of integer;
begin
for i := 1 to 5 do
read(ar[i]);
window.IsFixedSize := true;
window.Init(0, 0, 800, 800, clDarkGray);
window.CenterOnScreen;
SetFontSize(32);
for i := 1 to 5 do c := c + ar[i].ToString.Length;
for i := 1 to 7 do writeln;
write(' ':33 - c);
for i := 1 to 5 do
begin
if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
begin
SetFontColor(clred);
write(ar[i]);
end
else if(ar[i] mod 10 = 0) then
begin
SetFontColor(clblue);
write(ar[i]);
end
else if(ar[i] mod 2 <> 0) then
begin
SetFontColor(clyellow);
write(ar[i]);
end
end;
end.
Это легко смотри ты должна сделать точно такой же в тетрадь и формулу S=a*v
1 Мбайт = 1024 Кбайт
0.3 Мбайт = 0.3*1024 Кбайт = 307.2 Кбайт
А10=1997,25=1*10^3+9*10^2+9*10^1+7*10^0+2*10^(-1)+5*10^(-2)
A16=918=9*16^2+1*16^1+8*16^0
A8=145=1*8^2+4*8^1+5*8^0
A2=101010=1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0