Question

На входе программы имеется натуральное число n (n > 99). В числе n нужно обменять местами цифры сотен и единиц. Входные данные #1 512 Выходные данные #1 215 Программа для паскаля!!

Answer 1

var

 n: integer;

begin

 readln(n);

 writeln((n div 1000) * 1000 + (n mod 1000 mod 10) * 100 + (n mod 1000 mod 100 div 10) * 10 + (n mod 1000 div 100))

end.

Answer 2

Вот пример программы на Pascal, которая выполняет обмен местами цифр сотен и единиц в заданном числе:

pascalCopy code
program SwapDigits;
var
  n, hundreds, units, tens: integer;
begin
  // Ввод числа n
  writeln('Введите число n (n > 99): ');
  readln(n);
  
  // Проверка условия n > 99
  if n <= 99 then
  begin
    writeln('Число должно быть больше 99.');
    exit; // Завершение программы
  end;
  
  // Получение цифр числа
  hundreds := n div 100;  // Получение цифры сотен
  tens := (n div 10) mod 10;  // Получение цифры десятков
  units := n mod 10;  // Получение цифры единиц
  
  // Обмен цифрами сотен и единиц
  n := units * 100 + tens * 10 + hundreds;
  
  // Вывод результата
  writeln('Результат: ', n);
end.

Пожалуйста, обратите внимание, что это пример программы на языке Pascal, который можно использовать для выполнения данной задачи.