Question

Помогите, пожалуйста в Паскале программу написать Дано двузначное число. Приписать к нему цифру k в начало и конец. Например, если к числу 35 приписать цифру 1, то получим 1351.

Answer 1

var

 n, k, r: Integer;

begin

 Write ('Введите двузначное число: ');

 ReadLn (n);

 if (n < 10) or (n > 99) then begin

   Writeln ('Число не двузначное!');

   Exit;

 end;

 Write ('Введите приписываемую цифру от 1 до 9: ');

 ReadLn (k);

 if (n < 1) or (n > 9) then begin

   Writeln ('Ошибка ввода!');

   Exit;

 end;

 r := k * 1000 + n * 10 + k;

 Write ('Результат = ', r);

end.

Answer 2

Конечно! Вот программа на языке Паскаль:

scssCopy code
program AddDigits;

var
  number, k, result: integer;

begin
  // Вводим исходное число и цифру k
  writeln('Введите двузначное число:');
  readln(number);
  writeln('Введите цифру k:');
  readln(k);
  
  // Считаем новое число
  result := k * 100 + number * 10 + k;
  
  // Выводим результат
  writeln('Результат: ', result);
end.

Программа запрашивает у пользователя двузначное число и цифру k, после чего приписывает к исходному числу цифру k в начало и конец. Результат выводится на экран.

Например, если пользователь вводит число 35 и цифру 1, то программа выведет результат 1351.