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

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

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

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

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

[klem4]

Все задачи решалсиь, пользуйся поиском
подсказка : как выделить цифру из числа

uses crt;
var
   n : word;
begin
   readln(n);
   while(n>0) do begin
      writeln(n mod 10);
      n := n div 10;
   end;
   readln
end.

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