Помогите с задачкой

[Sour]

Приписать по 1 в начало и в конец за числа N. Например из числа N=456, получить 14561.

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
var
num: integer;
begin
num := StrToInt('1' + IntToStr(456) + '1');
end;

[Sour]

вводится с клавиатуры не только число 456, а ЛЮБОЕ

[merax]

num := StrToInt('1' + IntToStr(Edit1.Text) + '1');

[strannik]

Скорее всего так:
num := StrToInt('1' + Edit1.Text + '1');

[zetrix]

Хм... A задaчка на каком языке? А то вдруг Паскаль... И человек сейчас парится, сделать не может, ищет: что такое Edit1 и StrToInt...

[merax]

Ну с паскалем, то проще даже, вот -

program forum;
uses crt;
var
   a : integer;
begin
clrscr;
write ('Input line ');
read (a);
write ('1',a,'1');
readkey;
end.

2strannik... Сори тупанул, спасибо, что поправил, а то я на автомате как то!!!!

А на С++ еще проще:

cout << "1" << a << "1" << endl;

[Sour]

не, в делфи, а точно прокатит если вот так просто добавить единички, странно

[Malice]

Мы не ищем легких путей !

 
i:=456;
for n:=1 to 2 do begin
j:=1;
while i>0 do begin j:=j*10+i mod 10; i:= i div 10; end;
i:=j;
end;
writeln (i);

ps просто 1-цы добавить не прокатит - задача точно не нахитрость

[zetrix]

Да, а что странного? Сначало преобразуем число в строку, потом со строкой всё что угодно делаем, потом обратно в число.