Приписать по 1 в начало и в конец числа N

Категория: Delphi/Pascal
2011-08-28 20:34:35

Например, из числа N=456 получить 14561.

code: #pascal
  1. program forum;
  2. uses crt;
  3. var
  4.    a : integer;
  5. begin
  6.  clrscr;
  7.  write ('Input line ');
  8.  read (a);
  9.  write ('1',a,'1');
  10.  readkey;
  11. end.
Поделиться:

Похожие статьи:

теги: студенты, консольное приложение