Question

Поменять местами два введенных числа. Паскаль.

Answer 1

Var
  m,n,t:integer;
begin
  Write('Введите два натуральных числа: '); Read(m,n);
  t:=m; m:=n; n:=t;
  Writeln('Результат обмена: ',m,', ',n)
end.

Тестовое решение:
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35

Answer 2

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

program SwapNumbers;
var
  a, b, temp: integer;
begin
  writeln('Введите первое число: ');
  readln(a);
  writeln('Введите второе число: ');
  readln(b);
  
  writeln('До замены:');
  writeln('Первое число: ', a);
  writeln('Второе число: ', b);
  
  temp := a;
  a := b;
  b := temp;
  
  writeln('После замены:');
  writeln('Первое число: ', a);
  writeln('Второе число: ', b);
end.

В этом примере мы сначала запрашиваем у пользователя два числа, а затем выводим их на экран до замены. Затем мы используем временную переменную `temp`, чтобы поменять значения местами. После этого мы выводим числа на экран после замены.

Обратите внимание, что в данном примере используется функция `writeln` для вывода текста на экран и функция `readln` для считывания введенных значений. Эти функции могут отличаться в различных версиях Паскаля, поэтому убедитесь, что ваша среда разработки поддерживает эти функции или используйте аналогичные функции для ввода-вывода.

Надеюсь, это поможет вам поменять местами два введенных числа в программе на языке Паскаль! Если у вас возникнут еще вопросы, не стесняйтесь задавать.