program z1;
var n,k:integer;
begin
k:=0;
write ('Введите натуральное число (n>9): ');
readln (n);
write ('Цифры натурального числа ',n);
while n>=10 do
begin
if n mod 10 < n div 10 mod 10 then k:=1;
n:=n div 10
end;
if k=1 then write (' НЕ расположены в порядке возрастания')
else write (' расположены в порядке возрастания')
end.
Объяснение:
Вводим число
Цикл с предусловием (условие число больше или равно 10)
Сравнение последней и предпоследней цифр числа, если последняя меньше, то k присваивается значение 1
n присваивается значение целочисленного деления на 10 (отбрасываем последнюю цифру числа)
Если k = 1, то цифры не расположены в порядке возрастания, иначе расположены
1) ((1*(2x)^2+6*(2x)+3)*(1*2x+1)):5+(3*(2x)^2+9*2x+1)=
((4*x^2+12*x+3)*(2*x+1)):5+(12*x^2+18*x+1)
2) ((4*x^2+5*x+4)*(1*x+5)-(2*x+6)):5+(2*x^3+6*x^2+3*x+3)=
((4*x^2+5*x+4)*(x+5)-(2*x+6)):5+(2*x^3+6*x^2+3*x+3)
После раскрытия скобок и приведения подобных, с учетом того, что числа в выражениях должны быть равны, получим:
8*x^3+88*x^2+108*x+8 = 14*x^3+55*x^2+42*x+29
т.е. 6*x^3-33*x^2-66*x+21=0
Очевидно, что нас интересуют только целочисленные положительные решения.
Ещё раз посмотрим на выражение (454*15-26):5+2633
Из него видно, что основание системы счисления должно быть не меньше 7.
Подставим 7 в уравнение, и! сразу обнаруживаем, что это и есть подходящее нам решение.
Таким образом, в "десятке" одного было 7 человек, а в "десятке" другого - 14.
Общее количество "шпиёнов" у каждого = 7820