Задание:
Организовать ввод радиуса. Определить длину окружности
Решение:
L=2*Pi*rна pabc прога выглядит так: var l,r: real; constPi=3,14; beginwrite ('Введите радиус: '); read (r); l: =2*Pi*r; write ('Длина окружности: ',l); end.
Знаете другой ответ?