Разделить целую часть числа на триады от младших разрядов к старшим (влево от запятой);
- разделить дробную часть на триады в обратном направлении (вправо от запятой);
- заменить каждую триаду двоичных чисел соответствующей восьмеричной цифрой по таблице, предложенной выше;
- недостающие до триады позиции заполнить незначащими нуями.
Пример:
1010,111112=001010,1111102=12,768
144
162
2
//PascalABC.NET 3.1 сборка 1200
begin
var k := 0;
for var i := 132 to 188 do
begin
var n := i;
while n mod 2 = 0 do
n := n div 2;
while n mod 3 = 0 do
n := n div 3;
if n = 1 then begin
k += 1;
writeln(i);
end;
end;
writeln(k);
end.
Число в системах счисления :120(10)=170(8)=78(16)
тттттт!ттттттттттт!тттт
При использовании 2 цветов для хранения одной точки изображения требуется log(2)2 = 1 бит.
Память для всего изображения = 800*600*1 бит = 800*600/8 байт = 60000 байт
Uses crt;
Var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
readln (a[i]);
clrscr;
for i:=1 to 7 do begin
write (a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln (s);
end.