var
x, n:integer;
begin
write('n = ');
readln(n);
x := n mod 10;
n := n div 10;
while n > 0 do
begin
if n mod 10 < x then
begin
writeln('Последовательность неупорядочена по возрастанию');
readln;
Exit;
end;
x := n mod 10;
n := n div 10;
end;
writeln('Последовательность упорядочена по возрастанию');
readln;
end.
1. X - (sqr(X) / 3) + (sqr(X) / 5);
2. i * n * abs(cos(X)) / i * n * (1 + sqr(X)) = abs(cos(X)) / (1 + sqr(X));
3. (sqr(X) - 7 * X + 10) / (sqr(X) - 8 * X + 12).
Следуя закону Мура об удвоение вычислительной мощности процессора за год, у нас получить четверть 100:4=25 лет и получаем что мощность должна увеличиться в раз.