Написать функцию для обмена значений двух переменных
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
var k, l: integer; procedure exchange (var a,b: integer); var c: integer; begin if a > b then begin c := a; a := b; b := c; end; end; begin writeln ('Введите два числа: '); readln (k, l); exchange (k, l); writeln ('k = ', k,'; l = ', l); readln end. |
Похожие записи: