Вот и код. Если я не правельно понял задание, скажи
1) "Дарья" (первая согласная и последняя гласная).
2) Считаем: 2, 4, 4, нужно ещё одна 2 => вариант 4) C1/3.
111011 = 1 * 2^5 + 1 * 2^4 + 1 * 2^3 + 1 * 2^1 + 1 * 2^0 = 59 (10)
59 / 8 = 7
56 =
3
59 = 73 (8)
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.