Question

Программисты, помогите!!!! нужно написать программу на паскале. Приписать по 1 в начало и конец числа n. Например, из числа n=5678 надо получить 156781. С longint .

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('1'+ReadInteger+'1')
end.

Answer 2

Var
  n: longint;
  s: string;

begin
  readln(n);
  n := n * 10 + 1;
  s := '1' + n;
  writeln(s);
end.

Answer 3

Конечно, я могу помочь вам написать программу на Pascal, которая добавит по 1 в начало и конец числа n. Вам потребуется использовать тип данных LongInt, чтобы работать с большими числами.

Вот пример программы на Pascal:

pascalCopy code
program AddOneToStartAndEnd;

uses
  SysUtils;

function AddOneToStartAndEndOfNumber(n: LongInt): LongInt;
var
  strNum, modifiedStrNum: string;
begin
  // Преобразуем число в строку для обработки каждой цифры
  strNum := IntToStr(n);

  // Добавляем "1" в начало и конец строки
  modifiedStrNum := '1' + strNum + '1';

  // Преобразуем строку обратно в число и возвращаем результат
  Result := StrToInt(modifiedStrNum);
end;

var
  n, modifiedNumber: LongInt;
begin
  // Введите число n
  Write('Введите число n: ');
  Readln(n);

  // Вызываем функцию для добавления "1" в начало и конец числа
  modifiedNumber := AddOneToStartAndEndOfNumber(n);

  // Выводим результат
  Writeln('Исходное число n: ', n);
  Writeln('Число с добавленными "1" в начало и конец: ', modifiedNumber);
end.

Программа запросит у вас ввести число n, а затем выведет исходное число и число с добавленными "1" в начало и конец. Например, для n = 5678 результат будет 156781.