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

0 голосов
69 просмотров

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


Информатика (888 баллов) | 69 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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

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

(142k баллов)