Перепишите программу обмена местами двух чисел c=4,d=15. программа obmenDan; var c,d:integer; процедура obmen

Ameliya_25

40

Программа "obmenDan" выполняет обмен значениями переменных `c` и `d` с использованием процедуры `obmen`.

Давайте разберемся, как работает данная программа пошагово:

1. Объявление переменных `c` и `d` типа integer:

var c, d: integer;

2. Определение процедуры `obmen`, которая принимает два аргумента - `a` и `b` типа integer:

procedure obmen(a, b: integer);

3. Объявление переменной `m` типа integer:

var m: integer;

4. Внутри процедуры `obmen` происходит обмен значениями переменных `a` и `b` с помощью вспомогательной переменной `m`. Значение переменной `a` присваивается переменной `b`, затем значение переменной `b` присваивается переменной `m`, а значение переменной `m` присваивается переменной `a`.

m := a;

a := b;

b := m;

5. Вывод на экран обновленных значений переменных `a` и `b`:

writeln(a, " ", b);

6. Завершение процедуры `obmen`:

конец;

7. Основная часть программы начинается с вывода сообщения "Введите 2 числа:":

writeln("Введите 2 числа: ");

8. Считывание значений переменных `c` и `d` с клавиатуры:

readln(c, d);

9. Вызов процедуры `obmen` с передачей в нее значений переменных `c` и `d`:

obmen(c, d);

10. Вывод на экран значений переменных `c` и `d` после выполнения процедуры `obmen`:

writeln(c, " ", d);

11. Завершение программы:

конец.

Теперь давайте перепишем программу, чтобы получить новые значения переменных `c` и `d`. В данном случае, значения `c` и `d` будут равны 15 и 4 соответственно.

pascal

program obmenDan;



var c, d: integer;



procedure obmen(a, b: integer);

var m: integer;

begin

  m := a;

  a := b;

  b := m;

  writeln(a, " ", b);

end;



begin

  writeln("Введите 2 числа: ");

  readln(c, d);

  obmen(c, d);

  writeln(c, " ", d);

end.

Надеюсь, данное разъяснение помогло вам понять задачу и правильно переписать программу.