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

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

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

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

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

[Tupoi_Proger]

спасибо за интересную функцию!
сам решил задачу со степенью)) вот код. может кому встретится подобная задача. думаю проще не решить. только если volvo опять не разорвет вклочья мой мозг.

 
program Stepen;
uses CRT;
var n : integer;
begin
clrscr;
read(n);
while n div 3 <> 1 do
begin
if n mod 3 <> 0 then
   begin
   write('Net');
   break;
   end
else n:= n div 3;
end;
if n = 3 then write('Da');
readkey;
end.

ЗЫ дайте пожалуйста кто-нибудь подсказку по третьей. решу сам. мне нужна только отправная точка.