A := 10; b := 2
если a b
то a := a - 7
иначе a := a + 7
все

1) При вводе числа 256 программа выведет 3, т.к.
ввели n=256
n>0 ? - да, значит дальше идёт блок из цикла, и будет он повторятся до тех пор пока n будет >0.
d:=256 mod 10
d:=6, т.к. mod берёт остаток от деления.
n:=256 div 10
n:=25, т.к. div делит нацело и остаток не берёт.
sum:=sum+1;
sum:=1;

цикл первый раз закончился и опять проверяется условие n>0, если да, то опять запускает цикл. n:=25>0
d:=25 mod 10
d:=5
n:=25 div 10
n:=2
sum:=1+1
sum:=2;

опять закончился цикл и проверяется условие n>0, n:=2>0
d:=2 mod 10;
d:=2;
n:=2 div 10
n:=0
sum:=2+1;
sum:=3;

заканчивается цикл и проверяется условие n>0? n:=0 >0 - нет. цикл заканчивается и выводится значение sum.
ответ: 3.
2) 120, 210, 111 и т.д.

Обозначим имеющиеся высказывания буквами.
A: Вторая буква слова согласная
B: Последняя буква слова гласная
C: Первая буква слова гласная
Тогда исходное условие можно записать в виде (A v B) -> C или в ему эквилентном
Оно истинно, если истинно С или если одновременно ложны и А, и В.
Слов с первой гласной буквой нет, поэтому С всегда ложно.
Переформулируем условие , убрав отрицание:
"Вторая буква слова гласная" И "Последняя буква слова согласная".
Теперь посмотрим, есть ли среди заданных слова, удовлетворяющие этому условию. Вторая буква гласная в словах "Закон" и "Горе", а последняя буква согласная только в первом из этих слов. Поэтому слово "Закон" отвечает всем условиям и является ответом.

ответ: Закон.