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

Question

Информатика

Лавруня

16 ноября, 18:40

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

+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