Вот смотри, из большего нужно вычесть меньшего , т.е 1)114 - 66 = 48
Далее 2)66 - 48=18;3)48-18=30;4)30-18=12;5)18-12=6;6)12-6=6
Итого 6 шагов.
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
function Dec2Bin(x:string):string;
begin
var s:=x.MatchValue('\d+');
if s.Length=0 then begin
Writeln('Не найдено НИ ОДНОЙ цифры!');
Result:=''
end
else begin
var t:=s.ToInteger;
var r:string:='';
while t>=2 do (r,t):=(t mod 2+r,t shr 1);
Result:=t+r
end
end;
begin
Writeln(Dec2Bin(ReadlnString('n=')))
end.
Program yrok;
var a:integer;
begin
writeln ('Введите месяц');
readln(a);
if a=1
then writeln('январь')
else if a=2
then writeln('Февраль')
else if a=3
then writeln('Март')
else if a=4
then writeln('Апрель')
else if a=5
then writeln('Май')
else if a=6
then writeln('Июнь')
else if a=7
then writeln('Июнь')
else if a=8
then writeln('Август')
else if a=9
then writeln('сентябрь')
else if a=10
then writeln('октябрь')
else if a=11
then writeln('ноябрь')
else if a=12
then writeln('декабрь')
else writeln('такого месяца нет');
end.
Ну конечно же графический. это же картинка