Задача со страницы Линейные алгоритмы на языке программирования Паскаль
Lin1
| 1 2 3 4 5 6 7 8 9 10 11 12 | var a, b, c: real;{infouch.ru} begin write ('Введите через пробел 2 переменные '); readln (a,b); writeln ('Исходные значения'); writeln ('a = ', a, ', b = ', b); c := a; a := b; b := c; writeln ('Значения после обмена'); writeln ('a = ', a, ', b = ', b); end. |
