Задание:
С клавиатуры читаются два целые числа, если одно число>чем второе, то вычесляется и выводится на экран их разность, иначе вычесляется и выводится наэкран среднеарифметическое двух чисел
Решение:
program m; uses crt; var a,b: integer; beginclrscr; readln (a,b); if a>b then writeln (',a-b) else writeln (a+b) /2:2: 2); readkey; end.
Знаете другой ответ?