Поскольку 8 = 2^3, для того, чтобы перевести число из восьмеричной системы счисления в двоичную, достаточно перевести каждую цифру в двоичную систему счисления, дополнив запись нулями, чтобы получилось три двоичные цифры на одну восьмеричную.
Получается, в двоичной записи содержится 7 единиц.
По вашему рисунку посчитать клеточки сложно, мне показалось, что там всё по 5 клеток. Если это не так, поменять несложно.
использовать Чертежник
алг Зигзаг
нач
сместиться на вектор (0,5)
опустить перо
нц 5 раз
сместиться на вектор (5,5)
сместиться на вектор (5,-5)
кц
кон
СтолБ теПло вот так можно сделать
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>