30 Янв 20150 КомментариевPascal Решение задачи Begin11 Условие задачи:Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей. uses PT4; var a, b: real; begin Task('Begin11'); read(a, b); write(abs(a) + abs(b)); write(abs(a) - abs(b)); write(abs(a) * abs(b)); write(abs(a) / abs(b)); end. Поделиться:
