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

Question

Информатика

Емилиана

18 августа, 20:45

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

+2

Ответы (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