Исполнителями алгоритма на мой взгляд являются В и С
2б в 16 с.с. переводишь в 2 с.с. : 101011
101011 в 2 с.с. = 43 в 10 с.с.
111 в N с.с. приравниваешь к 43 в 10с.с.
т.к. во всех разрядах числа 111 стоят единицы, можно число разложить как N^2 + N^1 + N^0 = 43
N^2 + N + 1 =43
N^2 + N = 43-1
а дальше метод подбора
N= 6
Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.
Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:
var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.