Разбираем число N на цифры, а затем собираем в нужном порядке:
var n,n1,n2,n3,x:integer;
begin
write('n = ');
readln(n);
n1:=n div 100;
n2:=n div 10 mod 10;
n3:=n mod 10;
x:=n3*100+n2*10+n1;
writeln('x = ',x);
end.
Пример 1:
<span>n = 25
x = 520
Пример 2:
</span><span>n = 823
x = 328</span>
Числа можно записывать в порядке неубывания:
211 можно представить как 21 и 1, 21 мы не можем, значит 211 не подходит.
1717 можно представить как 17 и 17. эти числа можно получить из 98 и 98, оно нам подходит.
1817 можно представить как 18 и 17, эти числа можно получить из 99 и 97, но оно нам не подходит так как числа записаны в порядке убывания а 817 мы не можем получить сложив две цифры.
1718 нам подходит, предыдущее число, но записанное в порядке неубывания, можно получить из чисел 99 и 97.
1719 нам не подходит, так как мы не можем получить 19 при сложении двух цифр.
219 нам не подходит так как должны быть числа либо 2 и 19, либо 21 и 9. 19 и 21 мы не можем получить при сложении двух цифр.
21 нам не подходит.
10 нам не подходит, так как одно из чисел должно будет быть равно нулю, а в условии двузначные числа.
Ответ: 2
Const n=4;
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-i do write('-');
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
for j:=1 to n-i do write('-');
writeln;
end;
end.
Результат:
<span>---1---
--121--
-12321-
1234321</span>
Плюсы компьютерных словарей
1. Не нужно искать словарь в библиотеке.
2. Не надо искать слово в некольких словарях.
3. Не пропустишь слово, которое ищешь.
4. Есть большой выбор словарей.
5. Легко можно найти толкование.
