Циклы, строки, массивы Опции

[Тупой прогер]

Такие задачи:
1. Приписать по 1 в начало и в конец записи числа N. Наример было 5379, стало 153791.
2. Определить, является ли заданное число степенью 3.
3. Выяснить, является ли последовательность цифр натурального числа при просмотре их справа налево возрастающей последовательностью. Наример для числа 76431 ответ положительный, а для 9782 - отрицательный.
Если кто-то решит хоть одну задачу из этих трех - буду признателен.

В следующий раз тему с таким названием удалю

Сообщение отредактировано: klem4 - 20.12.2005 22:34

[volvo]

Ты сам сказал, что проще нельзя...
А вот так:

var
  n, count: integer;

begin
  readln(n); count := 0;
  while n >= 3 do begin
    count := count + (n mod 3);
    n := n div 3;
  end;

  if (n = 1) and (count = 0) then writeln('yes')
  else writeln('no');
end.

?