// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
procedure F(n: integer);
begin
if n < 6 then
begin
write(n);
F(n * 2);
F(n + 2)
end;
if n < 5 then
begin
write(n + 1);
F(n + 2)
end
end;
begin
var n := ReadInteger;
F(n)
end.
10 битов, 20 битов, 2 байта, 1 кбайт, 1010 байтов.
Var n: integer;
function oct(x: integer): string;
var s: string;
begin
while x > 0 do
begin
s := IntToStr(x mod 8) + s;
x := x div 8;
end;
Result := s;
end;
begin
write('Введите число: ');
readln(n);
writeln('Восьмиричная форма: ', oct(n))
<span>end.</span>
перевести число 18 в троичную систему счисления, в которой 0=вкл, 1=выкл, 2=миг.
18(10)=200(3)
Число 200 изображено в троичной системе и равно 18 в десятичной. Кол-во цифр в числе 200 - 3. Значит всего три лампочки.