Var n,m,a,b,c,d:integer;
begin
write('n = ');
readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n mod 100 div 10;
d:=n mod 10;
m:=d*1000+c*100+b*10+a;
writeln('m = ',m);
end.
Пример:
n = 1762
m = 2671
чтобы вычислить любое слова в юникоде, надо лишь знать, что 1 символ = 2 байта
Возможные 2 варианта:
1) Сумма первой и второй цифры - 1; сумма третьей и четвертой - 44; но он сразу отсекается, т.к. сумма любых двух цифр меньше 19
2) Сумма первой и второй цифры - 14; сумма третьей и четвертой - 4, все цифры - нечётные. Тогда:
14 = 7 + 7; 14 = 5 + 9; 14 = 9 + 5
4 = 3 + 1; 4 = 1 + 3
Все возможные числа:
7731; 7713; 5931; 5913; 9531; 9513
Ответ: 6