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