Это проход
пока база = нет повторить
если направо стена = нет то направо
если сверху стена = нет то вперед
если внизу стена = нет то вниз
если слева стена = нет то налево
конец_цикла
конец
Program a;
var s, m: integer;
begin
write('Возрасты Саши и Маши: ');
readln(s, m);
if( s > m ) then begin
writeln('Саша старше Маши');
end;
if( s = m ) then begin
writeln('Саша и Маша ровестники');
end;
if( s < m ) then begin
writeln('Маша старше Саши');
end;
<span>end.</span>
Цепочка 2) 4123 не удовлетворяет правилу "Последней цифрой не может быть цифра 3.<span>"
Цепочка 3) 1241 не удовлетворяет правилу "После четной цифры в цепочке не может идти снова четная, а после нечетной – нечетная." - здесь за 2 идет 4
</span>Цепочка 4) 3452 не удовлетворяет правилу "На первом месте стоит одна из бусин 1, 4 или 5."
Для цепочки 1) 4325 выполняются все правила.
Пишу на паскале. Я так понял суть программы в том чтобы она из числа 325 сделала 523. Если так и надо то вот код:
program prog;
var m,r,k,n,d:integer;
begin
writeln('Введите число n');
readln(n);
k:=n mod 10;
d:=n div 100;
r:=n div 10 mod 10;
m:=k*100+r*10+d;
writeln(m);
readln;
<span>end.</span>