14 Янв 20150 КомментариевPascal Решение задачи Begin3 Условие задачи:Даны стороны прямоугольника a и b. Найти его площадь S = a·b и периметр P = 2·(a + b). uses PT4; var a, b, s, p: real; begin Task('Begin3'); read(a, b); s := a * b; p := 2 * (a + b); write(s, p); end. Поделиться:
