16 Янв 20150 КомментариевPascal Решение задачи Begin4 Условие задачи:Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14. uses PT4; const pi = 3.14; var d, l: real; begin Task('Begin4'); read(d); l := pi * d; write(l); end. Поделиться:
