Дано натуральных число n. Приписать по единице в начало и конец записи числа n. Сформировать и напечатать полученное число

@Максим_nCoder · Регистрация: 26.09.2013

Author24 — интернет-сервис помощи студентам

Задача
1)Дано натуральных число n. Приписать по единице в начало и конец записи числа n. Сформировать и напечатать полученное число.
Здравствуйте, вот собственно задача. Уже несколько раз эта задача была на форуме.
Проблема в том что если я ввожу число 234, то программа выполняется, а если 862346 например, то программа не работает.
Я так понял нужно найти разрядность числа после ввода его с клавиатуры, а потом уже прописывать ему по 1 в начало и конец.
Код автора Puporev

Pascal

var n,m,k:integer;
begin
write('n=');
readln(n);
m:=n;
k:=10;
while m>0 do
 begin
  m:=m div 10;
  k:=k*10
 end;
m:=k+n*10+1;
write(m);
end.

Прошу помощи для доработки кода.

@Puporev · 16.10.2013, 17:51

Ну можно же увеличить диапазон и ограничить ввод, совсем ноги свесили, нихрена сами думать не хотите.

Pascal

var n,m,k:longint;
begin
repeat
write('Ââåäèòå öåëîå íåîòðèöàòåëüíîå ÷èñëî äî 999999 n=');
readln(n);
until (n>=0)and(n<=999999);
m:=n;
k:=10;
while m>0 do
 begin
  m:=m div 10;
  k:=k*10
 end;
m:=k+n*10+1;
write(m);
end.

@Максим_nCoder · 16.10.2013, 17:53 **[ТС]**

В этом и проблема, нужно как то с помощью цикла определить разрядность.

@Максим_nCoder 8 / 8 / 7 Регистрация: 26.09.2013 Сообщений: 127
	16.10.2013, 17:53 [ТС]	3
	В этом и проблема, нужно как то с помощью цикла определить разрядность. 0