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

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

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

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

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

[Tupoi_Proger]

только что проюзал поиск - таких задач не нашел. ((
плиз, помогите. мне котнтрольную задали из 50 задач. все решил кроме этих 3. уже голову сломал.
по 1ой у меня вот что только получается:

Код

program Zadacha;
uses CRT;
var
s: real;
k,n,x,i : integer;
begin
clrscr;
write('Vvedite chislo ');
readln(n);
x:=n;k:=1;
while (x div 10) > 0 do
begin
x:=x div 10;
k:=k+1;
end;
s:=0;
for i:=1 to k do
s:=(s +(exp(i*ln(10))*(n div (10*i))));
s:=(s + 1 + 10*(k+2));
write(s:5:2);
readkey;
end.

в чем ошибка?
ЗЫ от головной боли пришла альтернативная идея - схалтурить:

Код

program Haltura;
uses CRT;
var k,n,x : longint;
begin
clrscr;
write('Vvedite chislo ');
readln(n);
write('1',n,'1');
readkey;
end.

но думаю препод не оценит.