Напишите функцию, возвращающую большее из двух вещественных чисел, полученных в качестве аргумента.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | program functions_1; uses crt; var a, b: real; function Max(a, b: real): real; begin if a>b then Max:=a else Max:=b end; begin clrscr; write(‘A > ‘); read(a); write(‘B > ‘); read(b); write(Max(a, b),‘ – большее число’); readkey; end. |