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