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

Question

Информатика

Емилиана

5 августа, 14:36

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

+5

Ответы (1)

Знаете ответ?

Ритуша · 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